(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 11.3' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[     99100,       2213]
NotebookOptionsPosition[     85356,       1924]
NotebookOutlinePosition[     86028,       1950]
CellTagsIndexPosition[     85948,       1945]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[TextData[{
 "New in: ",
 Cell["0.7", "HistoryData",
  CellTags->"New",ExpressionUUID->"c4277cf2-6597-483f-a1b5-719f6ffcb4bc"],
 " | Modified in: ",
 Cell[" ", "HistoryData",
  CellTags->"Modified",ExpressionUUID->"1530e998-a053-422f-a79d-b40e89299177"],
 " | Obsolete in: ",
 Cell[" ", "HistoryData",
  CellTags->"Obsolete",ExpressionUUID->"78db451d-6f20-4b55-a640-1125e5690a95"],
 " | Excised in: ",
 Cell[" ", "HistoryData",
  CellTags->"Excised",ExpressionUUID->"a8f02901-208b-41e5-bb20-d828d9b6839a"]
}], "History",
 CellID->1247902091,ExpressionUUID->"3f09ee5d-cf06-4813-95e9-a98f1d12c6e7"],

Cell[CellGroupData[{

Cell["Categorization", "CategorizationSection",
 CellID->1122911449,ExpressionUUID->"40131237-4019-41ff-8a7d-6d27a93665ef"],

Cell["Symbol", "Categorization",
 CellLabel->"Entity Type",
 CellID->686433507,ExpressionUUID->"7e92b0f0-9fea-479d-8411-fad746e570fc"],

Cell["MaXrd", "Categorization",
 CellChangeTimes->{3.7438367889366293`*^9},
 CellLabel->"Paclet Name",
 CellID->605800465,ExpressionUUID->"d8b4c243-ac46-4994-b58d-f9cf8e067a88"],

Cell["MaXrd`", "Categorization",
 CellChangeTimes->{3.7438367893771477`*^9},
 CellLabel->"Context",
 CellID->468444828,ExpressionUUID->"16aa8a26-4c24-4ea7-8d24-e8eccdb843da"],

Cell["MaXrd/ref/AttenuationCoefficient", "Categorization",
 CellChangeTimes->{3.743836789737132*^9},
 CellLabel->"URI",ExpressionUUID->"2aa62a00-49e5-4d0d-8eb3-1209e67d04d8"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Keywords", "KeywordsSection",
 CellID->477174294,ExpressionUUID->"1245ad46-d04a-4af3-ab61-90222a2a4027"],

Cell["XXXX", "Keywords",
 CellID->1164421360,ExpressionUUID->"e0acb017-4d30-4b4f-90ed-2c06a2bb7bf6"]
}, Closed]],

Cell[CellGroupData[{

Cell["Syntax Templates", "TemplatesSection",
 CellID->1872225408,ExpressionUUID->"9d28174d-46a7-4941-a828-2bb75e89b8da"],

Cell[BoxData[""], "Template",
 CellLabel->"Additional Function Template",
 CellID->1562036412,ExpressionUUID->"95458585-9147-4cdb-a975-65ce471975dd"],

Cell[BoxData[""], "Template",
 CellLabel->"Arguments Pattern",
 CellID->158391909,ExpressionUUID->"e76e055d-2720-4703-8798-4ed613b1c492"],

Cell[BoxData[""], "Template",
 CellLabel->"Local Variables",
 CellID->1360575930,ExpressionUUID->"d4725ef4-7ceb-4689-a8c8-393ce6522b83"],

Cell[BoxData[""], "Template",
 CellLabel->"Color Equal Signs",
 CellID->793782254,ExpressionUUID->"0dac2c06-b92a-424b-978e-475c656b0863"]
}, Closed]],

Cell[CellGroupData[{

Cell["Details", "DetailsSection",
 CellID->307771771,ExpressionUUID->"698ddb88-7a87-4266-aedb-da13879dc3ef"],

Cell["XXXX", "Details",
 CellLabel->"Lead",
 CellID->670882175,ExpressionUUID->"028bdf1e-0806-4183-bbd1-d001e24818ec"],

Cell["XXXX", "Details",
 CellLabel->"Developers",
 CellID->350963985,ExpressionUUID->"1f736e9c-044f-400c-8fe9-1e58e489742f"],

Cell["XXXX", "Details",
 CellLabel->"Authors",
 CellID->8391405,ExpressionUUID->"a9fbdf6a-5069-49e5-a9bd-3940fbe5063e"],

Cell["XXXX", "Details",
 CellLabel->"Feature Name",
 CellID->3610269,ExpressionUUID->"bc4fabdb-d6f9-4381-9011-866ca685e650"],

Cell["XXXX", "Details",
 CellLabel->"QA",
 CellID->401364205,ExpressionUUID->"0fe86c02-25f1-434f-8b8d-b6c24f6968ff"],

Cell["XXXX", "Details",
 CellLabel->"DA",
 CellID->350204745,ExpressionUUID->"c5d148f6-73a4-4441-bc29-1219642a691b"],

Cell["XXXX", "Details",
 CellLabel->"Docs",
 CellID->732958810,ExpressionUUID->"a3995d0e-df78-437d-81a3-7583d6c1e1a8"],

Cell["XXXX", "Details",
 CellLabel->"Features Page Notes",
 CellID->222905350,ExpressionUUID->"8f4d0c0b-b02f-487b-8ae3-4b55999ff8c8"],

Cell["XXXX", "Details",
 CellLabel->"Comments",
 CellID->240026365,ExpressionUUID->"c03bae01-862c-4662-9dda-ae246a739d83"]
}, Closed]],

Cell[CellGroupData[{

Cell["AttenuationCoefficient", "ObjectName",
 CellID->1224892054,ExpressionUUID->"c6dc2058-035d-4b6a-8f92-673bb6f751f7"],

Cell[TextData[{
 Cell["   ", "ModInfo",ExpressionUUID->"79ca25b8-286c-4bb5-9019-feef7dbcc9c6"],
 Cell[BoxData[
  RowBox[{
   ButtonBox["AttenuationCoefficient",
    BaseStyle->"Link",
    ButtonData->"paclet:MaXrd/ref/AttenuationCoefficient"], "[", 
   StyleBox["crystal", "TI"], "]"}]], "InlineFormula",ExpressionUUID->
  "e6730880-7109-48a1-8fc8-c31934d5c129"],
 " \[LineSeparator]returns the linear attenuation coefficient for ",
 Cell[BoxData[
  StyleBox["crystal", "TI"]], "InlineFormula",ExpressionUUID->
  "c60a8255-70de-49b4-8e62-0aa24c8c5ca5"],
 ".\n",
 Cell["      ", "ModInfo",ExpressionUUID->
  "ee854121-61e4-4fef-beac-7172dd55f772"],
 Cell[BoxData[
  RowBox[{
   ButtonBox["AttenuationCoefficient",
    BaseStyle->"Link",
    ButtonData->"paclet:MaXrd/ref/AttenuationCoefficient"], "[", 
   RowBox[{
    StyleBox["crystal", "TI"], ",", 
    StyleBox["\[Lambda]", "TR"]}], "]"}]], "InlineFormula",ExpressionUUID->
  "c734cefa-cd94-48d4-b0ee-ef76f9749594"],
 "\[LineSeparator]returns the linear attenuation coefficient for ",
 Cell[BoxData[
  StyleBox["crystal", "TI"]], "InlineFormula",ExpressionUUID->
  "6e18d61c-918b-4bcf-9586-65e804839d40"],
 " at wavelength ",
 Cell[BoxData[
  StyleBox["\[Lambda]", "TR"]], "InlineFormula",ExpressionUUID->
  "d10baa17-82b5-43f5-a8df-344c106f2a01"],
 "."
}], "Usage",
 CellChangeTimes->{{3.714279476738719*^9, 3.71427956765007*^9}},
 CellID->982511436,ExpressionUUID->"74a23311-90c6-4bc1-bd3b-b6a426329f95"],

Cell[TextData[{
 "The wavelength ",
 Cell[BoxData[
  StyleBox["\[Lambda]", "TR"]], "InlineFormula",ExpressionUUID->
  "9646fc69-cf11-48de-bd6b-5f138e4e1bdd"],
 " may be be omitted if it is contained in the ",
 Cell[BoxData[
  StyleBox["crystal", "TI"]], "InlineFormula",ExpressionUUID->
  "ae5848f3-7959-44d0-bfd4-657e7b68a6c8"],
 " entry in ",
 Cell[BoxData[
  ButtonBox["$CrystalData",
   BaseStyle->"Link",
   ButtonData->"paclet:MaXrd/ref/$CrystalData"]], "InlineFormula",
  ExpressionUUID->"8a67416b-72fb-4a59-83c5-0006198610f0"],
 ". One may also use an ",
 StyleBox["energy",
  FontSlant->"Italic"],
 " quantity instead of wavelength, as the input is passed through ",
 Cell[BoxData[
  ButtonBox["InputCheck",
   BaseStyle->"Link",
   ButtonData->"paclet:MaXrd/ref/InputCheck"]], "InlineFormula",
  ExpressionUUID->"5ec88aaf-f41e-4e03-b1f6-b23dde6a725c"],
 ". In either case, input may be a number or a ",
 Cell[BoxData[
  ButtonBox["Quantity",
   BaseStyle->"Link",
   ButtonData->"paclet:ref/Quantity"]], "InlineFormula",ExpressionUUID->
  "9be5151c-a0ba-4aad-94a1-d625499246de"],
 "."
}], "Notes",
 CellChangeTimes->{{3.718529176915864*^9, 3.71852922817808*^9}, {
  3.726900343738305*^9, 3.7269005509678698`*^9}, {3.7353086540931883`*^9, 
  3.735308654351313*^9}},
 CellID->1174253239,ExpressionUUID->"032b0624-2c02-4585-8db9-923876be41d4"],

Cell["\<\
The following interaction phenomena are considered in the contribution to the \
overall attenuation of the X-ray beam. The columns denote name of the \
phenomena, alternative names and short descriptions, respectively.\
\>", "Notes",
 CellChangeTimes->{{3.727594260240395*^9, 3.7275943117511177`*^9}, {
   3.72759499863702*^9, 3.72759500419388*^9}, {3.7276890049904222`*^9, 
   3.727689040799309*^9}, 3.7441701930030737`*^9},
 CellID->1710490272,ExpressionUUID->"b8cb1ce2-9934-4e64-ac54-7d96f2832db2"],

Cell[BoxData[GridBox[{
   {Cell["      ", "ModInfo",ExpressionUUID->
     "397c3ba9-3bc8-4bee-8ce9-1742c1008c43"], Cell[TextData[{
     "Photoelectric scattering (",
     Cell[BoxData[
      SubscriptBox["\[Sigma]", "pe"]], "InlineFormula",ExpressionUUID->
      "d62e4371-98af-4a9f-a2c2-2c00dc00ac8b"],
     ")"
    }], "TableText",ExpressionUUID->"4e1b6a27-6992-42d4-b287-956970866ba1"], 
    Cell["photoionisation", "TableText",ExpressionUUID->
     "2d626055-b76e-404e-8488-c911472762d4"], Cell[
    "absorbed photon results in ejected electron", "TableText",
     ExpressionUUID->"8003102e-503c-4ffb-808a-375cb1139e47"]},
   {Cell["      ", "ModInfo",ExpressionUUID->
     "73571aa0-fc60-4b01-bf44-7a14e8bc01e9"], Cell[TextData[{
     "Coherent scattering (",
     Cell[BoxData[
      SubscriptBox["\[Sigma]", "coh"]], "InlineFormula",ExpressionUUID->
      "7c82502b-1717-4e3b-b21f-0721bc68e2bb"],
     ")"
    }], "TableText",ExpressionUUID->"f491f044-15b4-4d52-a7da-1d074ce83049"], 
    Cell["Rayleigh-, Thompson-, classical- or elastic scattering", 
     "TableText",ExpressionUUID->"0fefdcf4-1df8-4ada-9c57-086adbc30bbb"], 
    Cell["scattering off bound electrons", "TableText",ExpressionUUID->
     "84f7d993-728f-4498-bb63-9cc02acb0c3f"]},
   {Cell["      ", "ModInfo",ExpressionUUID->
     "11dbb3d4-a247-42d8-a657-081a55be3051"], Cell[TextData[{
     "Incoherent scattering (",
     Cell[BoxData[
      SubscriptBox["\[Sigma]", "incoh"]], "InlineFormula",ExpressionUUID->
      "1870409f-0e22-4523-bc20-f39c7d6c1d55"],
     ")"
    }], "TableText",ExpressionUUID->"d60b1fb8-2d83-4ec6-a4f5-a2cc35adf4fb"], 
    Cell["Compton- or inelastic scattering", "TableText",ExpressionUUID->
     "7b3008ba-781b-4bf0-ac0d-bb724aeb916d"], Cell["\<\
photon energy results in ejected electron as well as scattered photon with \
less energy\
\>", "TableText",ExpressionUUID->"efb8189b-36c3-45cd-925d-8c68f94e6eae"]}
  }]], "3ColumnTableMod",
 CellChangeTimes->{{3.727594454427334*^9, 3.727594472506165*^9}, {
  3.727594511491255*^9, 3.727594549268821*^9}, {3.727594590155175*^9, 
  3.727594766827322*^9}, {3.727594815676877*^9, 3.727594919657453*^9}, {
  3.727595489612759*^9, 3.72759548982045*^9}, {3.7275975990453253`*^9, 
  3.727597599220827*^9}, {3.727597719839156*^9, 3.727597720004415*^9}, {
  3.727688939507079*^9, 3.727688942821025*^9}, {3.727695639172723*^9, 
  3.72769564893286*^9}},
 CellID->49233058,ExpressionUUID->"b7a08e6f-cf02-4822-af5a-7cdc57fa7dc1"],

Cell["\<\
Other effects, such as pair production and photo-disintegration, are not \
taken into account.\
\>", "Notes",
 CellChangeTimes->{{3.7275950070964203`*^9, 3.727595036376354*^9}, {
   3.727694918997116*^9, 3.727694925706118*^9}, 3.744170203005343*^9},
 CellID->1822626567,ExpressionUUID->"1632e0d4-432e-4ca2-a229-d9cb4c9eb13d"],

Cell[TextData[{
 "Options from ",
 Cell[BoxData[
  ButtonBox["GetScatteringCrossSections",
   BaseStyle->"Link",
   ButtonData->"paclet:MaXrd/ref/GetScatteringCrossSections"]], 
  "InlineFormula",ExpressionUUID->"ab796154-481e-4445-b046-44681d89554f"],
 ":"
}], "Notes",
 CellChangeTimes->{{3.735308529901268*^9, 3.735308541627594*^9}, {
  3.743865882904625*^9, 3.74386588290481*^9}},
 CellID->629474015,ExpressionUUID->"8c1aa00d-6ac9-4353-a8e8-390f07a2e4ae"],

Cell[BoxData[GridBox[{
   {Cell["      ", "ModInfo",ExpressionUUID->
     "6f10d226-d3e9-4c93-b73b-44464612eee8"], "\"\<PhysicalProcess\>\"", 
    "\"\<\>\"", Cell[
    "select one type of scattering cross section to consider", "TableText",
     ExpressionUUID->"eafd1b4b-e0e3-4f31-940e-6460892353c6"]},
   {Cell["      ", "ModInfo",ExpressionUUID->
     "bdaa693f-e65b-4363-b819-7c50524b8a67"], "\"\<Source\>\"", 
    "\"\<xraylib\>\"", Cell[TextData[{
     "source of cross section or ",
     Cell[BoxData[
      FormBox[
       SuperscriptBox["f", "\[Prime]\[Prime]",
        MultilineFunction->None], TraditionalForm]], "InlineMath",
      ExpressionUUID->"9eb339d9-c70f-4b8c-a350-421dd43f888d"],
     " data"
    }], "TableText",ExpressionUUID->"ea55fdd9-fccf-4d91-8873-57140102e3ff"]},
   {Cell["      ", "ModInfo",ExpressionUUID->
     "c178d3b5-12f6-4fdf-9d99-d5999ec0b40e"], "\"\<Units\>\"", 
    ButtonBox["True",
     BaseStyle->"Link",
     ButtonData->"paclet:ref/True"], Cell[TextData[{
     "output as a ",
     ButtonBox["Quantity ",
      BaseStyle->"Link",
      ButtonData->"paclet:ref/Quantity"],
     "with units"
    }], "TableText",ExpressionUUID->"e4bda5ee-e513-46c6-a28f-edf7588782ec"]}
  }]], "3ColumnTableMod",
 TaggingRules->{"Alphabetized" -> True},
 CellChangeTimes->{{3.7275951725589037`*^9, 3.727595176129064*^9}, {
   3.727597119833507*^9, 3.727597250565536*^9}, 3.727597551728402*^9, {
   3.727600877328664*^9, 3.7276009360611897`*^9}, {3.727601072386929*^9, 
   3.7276010733951197`*^9}, {3.72760764870477*^9, 3.727607660170006*^9}, {
   3.7276078569221363`*^9, 3.727607868376451*^9}, {3.7276082097642527`*^9, 
   3.7276082097643633`*^9}, 3.735308520964767*^9},
 CellID->1523785371,ExpressionUUID->"58933d61-6f8f-4934-9953-6942d417bfc8"],

Cell["Options exclusive to this function:", "Notes",
 CellChangeTimes->{{3.7275950553586397`*^9, 3.72759507209422*^9}, {
  3.737397972103297*^9, 3.737397976063032*^9}},
 CellID->1548663136,ExpressionUUID->"c54f85cf-3d96-458e-8359-f7506d7e7e03"],

Cell[BoxData[GridBox[{
   {Cell["      ", "ModInfo",ExpressionUUID->
     "3c78c79d-d8f3-4c2c-9381-d0d5c4ca3744"], "\"\<Coefficient\>\"", 
    "\"\<LinearAttenuation\>\"", Cell[
    "type of coefficient to calculate", "TableText",ExpressionUUID->
     "998975ad-8d59-4e0a-8b69-dcf4ae77e115"]},
   {Cell["      ", "ModInfo",ExpressionUUID->
     "11351234-4e19-43ed-9f30-d4bcb25e28a5"], 
    "\"\<MassCoefficientMethod\>\"", "\"\<DivideByDensity\>\"", Cell[TextData[{
     "whether to use atomic mass formula or divide ",
     Cell[BoxData[
      FormBox["\[Mu]", TraditionalForm]], "InlineMath",ExpressionUUID->
      "47aba57b-8e7e-4a20-bd73-ebddce5145fc"],
     " by ",
     Cell[BoxData[
      FormBox["\[Rho]", TraditionalForm]], "InlineMath",ExpressionUUID->
      "3be9890a-6f41-4a37-bce7-2d0a6465024e"]
    }], "TableText",ExpressionUUID->"8b4335f6-976a-45a3-8ac1-27c20f130da9"]}
  }]], "3ColumnTableMod",
 TaggingRules->{"Alphabetized" -> True},
 CellChangeTimes->{{3.7275951725589037`*^9, 3.727595176129064*^9}, {
   3.727597119833507*^9, 3.727597250565536*^9}, 3.727597551728402*^9, {
   3.727600877328664*^9, 3.7276009360611897`*^9}, {3.727601072386929*^9, 
   3.7276010733951197`*^9}, {3.72760764870477*^9, 3.727607660170006*^9}, {
   3.7276078569221363`*^9, 3.727607868376451*^9}, {3.7276082097642527`*^9, 
   3.7276082097643633`*^9}, 3.735308548084594*^9, {3.737396621046859*^9, 
   3.737396763551672*^9}, 3.7373977244149427`*^9},
 CellID->618233807,ExpressionUUID->"1976f4c2-a5ec-4a92-b343-efd7cf1e1bc3"],

Cell[TextData[{
 "The following settings are supported for the ",
 Cell[BoxData[
 "\"\<Coefficient\>\""], "InlineFormula",ExpressionUUID->
  "2bbf19b9-5374-481f-9658-3f5861a12245"],
 " option. ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["N", "A"], TraditionalForm]], "InlineMath",ExpressionUUID->
  "d2ea6a1e-0f61-4864-8b7f-cdc6257ae8ff"],
 " is Avogadro's constant, ",
 Cell[BoxData[
  FormBox["M", TraditionalForm]], "InlineMath",ExpressionUUID->
  "a49dae1d-9a60-431d-a0cb-210a62b58ba7"],
 " the atomic weight and ",
 Cell[BoxData[
  FormBox["\[Sigma]", TraditionalForm]], "InlineMath",ExpressionUUID->
  "f86af55d-24fa-4fdb-b02f-4f4b6d86f8be"],
 " the total cross section [1, p. 213]:"
}], "Notes",
 CellChangeTimes->{{3.727597254606573*^9, 3.727597305529044*^9}, {
  3.727599244411635*^9, 3.7275992505763607`*^9}, {3.727605875524337*^9, 
  3.727605895058477*^9}, {3.727608010963834*^9, 3.7276080346143312`*^9}, {
  3.730622753999955*^9, 3.730622763215352*^9}, {3.7372618629045067`*^9, 
  3.737261969402281*^9}, {3.737262004759143*^9, 3.737262006070958*^9}, {
  3.737262056262768*^9, 3.737262058406591*^9}, {3.7373666060305853`*^9, 
  3.737366607093234*^9}},
 CellID->1547272125,ExpressionUUID->"e86340b9-88b6-4e4c-be42-64ce623feafa"],

Cell[BoxData[GridBox[{
   {Cell["      ", "ModInfo",ExpressionUUID->
     "db81b458-eee9-485a-9db9-b159c9815ef2"], "\"\<LinearAttenuation\>\"", 
    "\[Mu]", Cell[TextData[Cell[BoxData[
     RowBox[{
      SubscriptBox["\[Sigma]", "tot"], "=", 
      RowBox[{
       SubscriptBox["\[Sigma]", "pe"], "+", 
       SubscriptBox["\[Sigma]", "coh"], "+", 
       SubscriptBox["\[Sigma]", "incoh"]}]}]], "InlineFormula",
     ExpressionUUID->"299d967a-608b-4bce-a296-7c7ecb67157b"]], "TableText",
     ExpressionUUID->"31e55ccd-b192-4998-ae45-83148966cf51"]},
   {Cell["      ", "ModInfo",ExpressionUUID->
     "043070ec-0d63-4305-9570-b7053ab23dc3"], "\"\<MassAbsorption\>\"", 
    RowBox[{"\[Mu]", "/", "\[Rho]"}], Cell[TextData[Cell[BoxData[
     FormBox[
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         SubscriptBox["N", "A"], "/", "M"}], ")"}], "\[Sigma]"}], 
      TraditionalForm]], "InlineMath",ExpressionUUID->
     "29a6c1c8-a194-494c-97bd-d5c5cf0b89c0"]], "TableText",ExpressionUUID->
     "c8e6667e-6ff6-480f-8767-45062ffe3cfe"]}
  }]], "3ColumnTableMod",
 CellChangeTimes->{{3.727597474497954*^9, 3.7275974819385357`*^9}, {
   3.727597515936001*^9, 3.727597685589181*^9}, {3.7275977228318644`*^9, 
   3.727597726982923*^9}, {3.727605586915565*^9, 3.727605609621439*^9}, {
   3.727605869694152*^9, 3.727605873928708*^9}, 3.73062272997674*^9, {
   3.7372617487951117`*^9, 3.737261847942338*^9}, {3.737261978323635*^9, 
   3.73726198248179*^9}, {3.737262213786747*^9, 3.737262220692108*^9}, {
   3.7373962831658077`*^9, 3.737396284154798*^9}},
 CellID->1446604628,ExpressionUUID->"5baa2360-1dea-4f44-a531-7b0b0cef64e6"],

Cell[TextData[{
 "The following settings are supported for the ",
 Cell[BoxData["\<\"MassCoefficientMethod\"\>"], "InlineFormula",
  ExpressionUUID->"865dae6a-01d3-4ef2-85a2-f86a0593a585"],
 ":"
}], "Notes",
 CellChangeTimes->{{3.7373967782026587`*^9, 3.737396806898033*^9}},
 CellID->1084821645,ExpressionUUID->"848b95ed-cf4c-41d2-a4e3-91811e4adf6b"],

Cell[BoxData[GridBox[{
   {Cell["      ", "ModInfo",ExpressionUUID->
     "368645bc-6f6b-462f-9f9c-54513bd1c0a4"], "\"\<DivideByDensity\>\"", Cell[
    TextData[{
     "calculate ",
     Cell[BoxData[
      FormBox["\[Mu]", TraditionalForm]], "InlineMath",ExpressionUUID->
      "58e9f56a-f779-4a0f-bef9-5e071a5f46f9"],
     " then divide by ",
     Cell[BoxData[
      FormBox["\[Rho]", TraditionalForm]], "InlineMath",ExpressionUUID->
      "429d0085-32f5-428f-8ccb-314d338663be"]
    }], "TableText",ExpressionUUID->"6f6a6638-dbb7-4f77-a52c-e348f66e5419"]}
  }]], "2ColumnTableMod",
 CellChangeTimes->{{3.7373968174881268`*^9, 3.737396913182654*^9}, {
   3.7373970968642797`*^9, 3.737397099610067*^9}, {3.73739756714118*^9, 
   3.737397583866672*^9}, 3.744170168907981*^9},
 CellID->1700788839,ExpressionUUID->"ffa855b8-511c-491c-a718-ce8855111ced"],

Cell[TextData[{
 "If the name of the input source is contained both in the directory for the \
atomic scattering factors and the cross sections, the data from the cross \
sections will be used.\[LineSeparator]The imaginary part of the atomic \
scattering factor (",
 Cell[BoxData[
  FormBox[
   SuperscriptBox["f", "\[Prime]\[Prime]",
    MultilineFunction->None], TraditionalForm]], "InlineMath",ExpressionUUID->
  "9862032e-96b6-407d-ba81-f98a63480199"],
 ") can be used to calculate the photoelectric scattering cross section (",
 Cell[BoxData[
  FormBox[
   SubscriptBox["\[Sigma]", "pe"], TraditionalForm]], "InlineMath",
  ExpressionUUID->"edca4ab2-2ae8-415c-bdc6-fd4cdec38d63"],
 ") with the following relation [2]:"
}], "Notes",
 CellChangeTimes->{{3.726390649934064*^9, 3.726390692132659*^9}, 
   3.72769550448895*^9, {3.727695535166361*^9, 3.727695627633651*^9}, {
   3.727696015519596*^9, 3.7276960399584627`*^9}, 3.737262008726843*^9},
 CellID->1616764625,ExpressionUUID->"1851560b-6f95-4b2c-b9b3-17ca8cd6e91d"],

Cell[BoxData[
 FormBox[
  RowBox[{
   RowBox[{
    SuperscriptBox["f", "\[Prime]\[Prime]",
     MultilineFunction->None], "(", "E", ")"}], "=", 
   FractionBox[
    RowBox[{"E", " ", 
     RowBox[{
      SubscriptBox["\[Sigma]", "pe"], "(", "E", ")"}]}], 
    RowBox[{"2", " ", "h", " ", "c", " ", 
     SubscriptBox["r", "e"]}]]}], TraditionalForm]], "Input",
 CellChangeTimes->{{3.727696147746616*^9, 3.7276962211583023`*^9}},
 FontWeight->"Plain",
 CellID->1969985330,ExpressionUUID->"e00e5fcf-de6b-4a69-8542-ccb04441be62"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Tutorials", "TutorialsSection",
 CellID->250839057,ExpressionUUID->"263e7067-f6c3-4eb7-9b1f-f001c4232222"],

Cell["XXXX", "Tutorials",
 CellID->341631938,ExpressionUUID->"92784303-602f-45bc-a095-fb58c15c8b38"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Related Demonstrations", "RelatedDemonstrationsSection",
 CellID->1268215905,ExpressionUUID->"4ed9140a-474c-45b1-8724-124fbc2a206b"],

Cell["XXXX", "RelatedDemonstrations",
 CellID->1129518860,ExpressionUUID->"350ccb48-ad2f-4b2b-bcd3-c09083701092"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Related Links", "RelatedLinksSection",
 CellID->1584193535,ExpressionUUID->"52d39739-557f-4ee6-8c1d-6a74754a979c"],

Cell[TextData[{
 "[1] E. Prince, ",
 StyleBox["Mathematical, Physical and Chemical Tables",
  FontSlant->"Italic"],
 ", 3rd ed., International Tables for Crystallography. Kluwer Academic \
Publishers, 2004, volume C. Website: ",
 ButtonBox["http://it.iucr.org/C/",
  BaseStyle->"Hyperlink",
  ButtonData->{
    URL["http://it.iucr.org/C/"], None}],
 "."
}], "RelatedLinks",
 CellChangeTimes->{{3.7052948925733767`*^9, 3.7052949027610292`*^9}, {
  3.705295011488017*^9, 3.705295145415176*^9}, {3.737262073198819*^9, 
  3.737262127510376*^9}},
 CellID->1998586493,ExpressionUUID->"b9a8b31a-c492-492e-9aec-12e8a3459163"],

Cell[TextData[{
 "[2] Chantler, C. T. (2000). J. Phys. Chem. Ref. Data 29(4), 597\[Dash]1056 \
(",
 ButtonBox["https://doi.org/10.1063/1.1321055",
  BaseStyle->"Hyperlink",
  ButtonData->{
    URL["https://doi.org/10.1063/1.1321055"], None}],
 ")"
}], "RelatedLinks",
 CellChangeTimes->{{3.727695978182427*^9, 3.727696004989731*^9}, 
   3.73726201062311*^9},
 CellID->1038487239,ExpressionUUID->"1bc11870-f42f-4c53-9230-24bdaf1d1162"]
}, Open  ]],

Cell[CellGroupData[{

Cell["See Also", "SeeAlsoSection",
 CellID->1255426704,ExpressionUUID->"929493fe-6ee2-4aeb-89d8-44b46dd03c22"],

Cell[TextData[{
 Cell[BoxData[
  ButtonBox["CrystalDensity",
   BaseStyle->"Link",
   ButtonData->"paclet:MaXrd/ref/CrystalDensity"]], "InlineFormula",
  ExpressionUUID->"1ac8f83d-92ac-4b32-a6e8-8aee43be45ac"],
 " \[EmptyVerySmallSquare] ",
 Cell[BoxData[
  ButtonBox["GetAtomicScatteringFactors",
   BaseStyle->"Link",
   ButtonData->"paclet:MaXrd/ref/GetAtomicScatteringFactors"]], 
  "InlineFormula",ExpressionUUID->"c916809a-43d9-430b-9ebc-d18d87364daf"],
 " \[EmptyVerySmallSquare] ",
 Cell[BoxData[
  ButtonBox["GetCrystalMetric",
   BaseStyle->"Link",
   ButtonData->"paclet:MaXrd/ref/GetCrystalMetric"]], "InlineFormula",
  ExpressionUUID->"46421c8c-dba5-4e9d-a96a-c373d999c6b7"],
 " \[EmptyVerySmallSquare] ",
 Cell[BoxData[
  ButtonBox["GetElements",
   BaseStyle->"Link",
   ButtonData->"paclet:MaXrd/ref/GetElements"]], "InlineFormula",
  ExpressionUUID->"85c4e0b3-748f-43f9-850f-896a3250293c"],
 " \[EmptyVerySmallSquare] ",
 Cell[BoxData[
  ButtonBox["GetScatteringCrossSections",
   BaseStyle->"Link",
   ButtonData->"paclet:MaXrd/ref/GetScatteringCrossSections"]], 
  "InlineFormula",ExpressionUUID->"335b54dd-4b1f-4965-a625-0b6880e7690f"],
 " \[EmptyVerySmallSquare] ",
 Cell[BoxData[
  ButtonBox["InputCheck",
   BaseStyle->"Link",
   ButtonData->"paclet:MaXrd/ref/InputCheck"]], "InlineFormula",
  ExpressionUUID->"16320139-14cf-4984-99c0-57197ebb0e32"],
 " \[EmptyVerySmallSquare] ",
 Cell[BoxData[
  ButtonBox["StructureFactor",
   BaseStyle->"Link",
   ButtonData->"paclet:MaXrd/ref/StructureFactor"]], "InlineFormula",
  ExpressionUUID->"07933185-2d14-4845-931c-54a65b6ec078"],
 " \[EmptyVerySmallSquare] ",
 Cell[BoxData[
  ButtonBox["SymmetryEquivalentPositions",
   BaseStyle->"Link",
   ButtonData->"paclet:MaXrd/ref/SymmetryEquivalentPositions"]], 
  "InlineFormula",ExpressionUUID->"8c49364a-9929-476a-b5a6-2bc271fb1a81"],
 " \[EmptyVerySmallSquare] ",
 Cell[BoxData[
  ButtonBox["$CrystalData",
   BaseStyle->"Link",
   ButtonData->"paclet:MaXrd/ref/$CrystalData"]], "InlineFormula",
  ExpressionUUID->"c8104b54-7435-420c-a83f-16f5b3709c79"]
}], "SeeAlso",
 CellChangeTimes->{{3.73062295890976*^9, 3.730623002249712*^9}, {
  3.7353087780781527`*^9, 3.7353087833723583`*^9}, {3.7379684472049103`*^9, 
  3.737968470153187*^9}, {3.7438658531100283`*^9, 3.743865883054392*^9}, {
  3.744173746311051*^9, 3.744173766420636*^9}, {3.744173803784547*^9, 
  3.744173814642056*^9}},
 CellID->929782353,ExpressionUUID->"12cf0282-2e9b-441a-8a37-fabb63fd7fc1"]
}, Open  ]],

Cell[CellGroupData[{

Cell["More About", "MoreAboutSection",
 CellID->38303248,ExpressionUUID->"4e9d142d-5420-4c0c-994a-70897c806f1b"],

Cell["XXXX", "MoreAbout",
 CellID->1665078683,ExpressionUUID->"db8f2cc2-62e7-48ae-833d-6a6f5af0be07"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[GridBox[{
    {
     StyleBox["Examples", "PrimaryExamplesSection"], 
     ButtonBox[
      RowBox[{
       RowBox[{"More", " ", "Examples"}], " ", "\[RightTriangle]"}],
      BaseStyle->"ExtendedExamplesLink",
      ButtonData:>"ExtendedExamples"]}
   }],
  $Line = 0; Null]], "PrimaryExamplesSection",
 CellID->880084151,ExpressionUUID->"606c4353-be52-4b32-80e6-acaca0c425ae"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"AttenuationCoefficient", "[", 
  RowBox[{"\"\<Silicon\>\"", ",", "1.1573"}], "]"}]], "Input",
 CellChangeTimes->{{3.68707449761828*^9, 3.6870745047372828`*^9}, {
   3.687252468843525*^9, 3.6872524693998623`*^9}, {3.6872526591083727`*^9, 
   3.687252665036026*^9}, {3.687253071159033*^9, 3.68725307247193*^9}, 
   3.714279408070264*^9},
 CellLabel->"In[1]:=",
 CellID->694277380,ExpressionUUID->"6a2ccd83-1438-471a-ad4a-4956296f70f3"],

Cell[BoxData[
 TemplateBox[{
  "64.50908064808958`",RowBox[{"\"/\"", "\[InvisibleSpace]", "\"cm\""}],
   "reciprocal centimeters",FractionBox["1", "\"Centimeters\""]},
  "QuantityPostfix"]], "Output",
 CellChangeTimes->{
  3.687074572491068*^9, 3.687074673561591*^9, {3.687074725963438*^9, 
   3.687074747434657*^9}, 3.687074779130782*^9, {3.68707517941634*^9, 
   3.687075192385816*^9}, 3.687075231127192*^9, {3.687252356673073*^9, 
   3.687252377118396*^9}, {3.687252454028153*^9, 3.687252469683237*^9}, {
   3.6872526627463818`*^9, 3.687252665511631*^9}, {3.687252724972567*^9, 
   3.687252755835141*^9}, 3.687253073038703*^9, {3.687253195125276*^9, 
   3.687253336956994*^9}, {3.7142770663389997`*^9, 3.71427707615994*^9}, {
   3.71427721412632*^9, 3.714277222952599*^9}, 3.7142772674633007`*^9, 
   3.714279414314918*^9, 3.714279656722954*^9, 3.714279713198423*^9, 
   3.7190708076328773`*^9, 3.719070971926277*^9, 3.726900650545285*^9, 
   3.7276080655458393`*^9, 3.727608189001809*^9, 3.727679076805169*^9, 
   3.7276827486489077`*^9, 3.730397995404622*^9, 3.730623375972828*^9},
 CellLabel->"Out[1]=",
 CellID->1148816148,ExpressionUUID->"f07ca322-57e6-4d0d-8860-0a07220f6137"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "3eafbb10-68b1-4738-b5a1-75ba9390f63b"],
  $Line = 0; Null]], "ExampleDelimiter",
 CellID->1993867123,ExpressionUUID->"49ba27b0-0b18-4bb5-9a1a-a16322199ff4"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"cif", "=", 
   RowBox[{"FileNameJoin", "[", 
    RowBox[{"{", 
     RowBox[{
     "$MaXrdPath", ",", "\"\<ExampleFiles\>\"", ",", "\"\<CIF\>\"", ",", 
      "\"\<Ferrocene.cif\>\""}], "}"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"ImportCrystalData", "@", "cif"}]}], "Input",
 CellChangeTimes->{{3.7190709084053383`*^9, 3.719070952235461*^9}, {
   3.727682759267283*^9, 3.727682766258304*^9}, 3.743865414868854*^9},
 CellLabel->"In[1]:=",
 CellID->1777196472,ExpressionUUID->"a4046933-aa37-4f8d-9e6c-78e25560e909"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"\<\"ChemicalFormula\"\>", 
    "\[Rule]", "\<\"\\!\\(\\*SubscriptBox[\\(C\\), \
\\(10\\)]\\)\\!\\(\\*SubscriptBox[\\(H\\), \\(10\\)]\\)Fe\"\>"}], ",", 
   RowBox[{"\<\"FormulaUnits\"\>", "\[Rule]", "2"}], ",", 
   RowBox[{"\<\"SpaceGroup\"\>", 
    "\[Rule]", "\<\"\\!\\(\\*SubscriptBox[\\(P2\\), \\(1\\)]\\)/n\"\>"}], ",", 
   RowBox[{"\<\"LatticeParameters\"\>", "\[Rule]", 
    RowBox[{"\[LeftAssociation]", 
     RowBox[{
      RowBox[{"\<\"a\"\>", "\[Rule]", 
       TemplateBox[{
        "5.9285`","\"\[CapitalARing]\"","\[ARing]ngstr\[ODoubleDot]ms",
         "\"Angstroms\""},
        "Quantity"]}], ",", 
      RowBox[{"\<\"b\"\>", "\[Rule]", 
       TemplateBox[{
        "7.612`","\"\[CapitalARing]\"","\[ARing]ngstr\[ODoubleDot]ms",
         "\"Angstroms\""},
        "Quantity"]}], ",", 
      RowBox[{"\<\"c\"\>", "\[Rule]", 
       TemplateBox[{
        "9.041`","\"\[CapitalARing]\"","\[ARing]ngstr\[ODoubleDot]ms",
         "\"Angstroms\""},
        "Quantity"]}], ",", 
      RowBox[{"\<\"\[Alpha]\"\>", "\[Rule]", 
       TemplateBox[{
        "90",RowBox[{"\[InvisibleSpace]", "\"\[Degree]\""}],"degrees",
         "\"AngularDegrees\""},
        "QuantityPostfix"]}], ",", 
      RowBox[{"\<\"\[Beta]\"\>", "\[Rule]", 
       TemplateBox[{
        "93.156`",RowBox[{"\[InvisibleSpace]", "\"\[Degree]\""}],"degrees",
         "\"AngularDegrees\""},
        "QuantityPostfix"]}], ",", 
      RowBox[{"\<\"\[Gamma]\"\>", "\[Rule]", 
       TemplateBox[{
        "90",RowBox[{"\[InvisibleSpace]", "\"\[Degree]\""}],"degrees",
         "\"AngularDegrees\""},
        "QuantityPostfix"]}]}], "\[RightAssociation]"}]}], ",", 
   RowBox[{"\<\"Wavelength\"\>", "\[Rule]", 
    TemplateBox[{
     "0.69804`","\"\[CapitalARing]\"","\[ARing]ngstr\[ODoubleDot]ms",
      "\"Angstroms\""},
     "Quantity"]}], ",", 
   RowBox[{"\<\"AtomData\"\>", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"\[LeftSkeleton]", "11", "\[RightSkeleton]"}], "}"}]}]}], 
  "}"}]], "Output",
 CellChangeTimes->{
  3.719070920985785*^9, {3.719070953959194*^9, 3.719070973464117*^9}, 
   3.726900619956151*^9, 3.726900655580361*^9, 3.727679084633609*^9, 
   3.727682101524622*^9, {3.72768275359802*^9, 3.727682788107362*^9}, 
   3.727694934146627*^9, 3.730398003021611*^9, 3.730623383545457*^9},
 CellLabel->"Out[2]=",
 CellID->14282953,ExpressionUUID->"c4131773-a387-4b60-bd3e-672e1f79c724"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"AttenuationCoefficient", "[", "\"\<Ferrocene\>\"", "]"}]], "Input",
 CellChangeTimes->{{3.7142771574835167`*^9, 3.714277163544517*^9}, 
   3.714279409175735*^9, {3.7142796580296507`*^9, 3.7142796608400183`*^9}, {
   3.714279722276373*^9, 3.714279722797164*^9}, 3.714279923524063*^9, {
   3.719070813118765*^9, 3.719070814189986*^9}, {3.719070924517357*^9, 
   3.719070928123745*^9}},
 CellLabel->"In[3]:=",
 CellID->1982197250,ExpressionUUID->"3d7f787f-b762-4a12-b7ac-4f070c64a670"],

Cell[BoxData[
 TemplateBox[{
  "16.86144646475711`",RowBox[{"\"/\"", "\[InvisibleSpace]", "\"cm\""}],
   "reciprocal centimeters",FractionBox["1", "\"Centimeters\""]},
  "QuantityPostfix"]], "Output",
 CellChangeTimes->{{3.714277158812269*^9, 3.714277164037972*^9}, 
   3.714277267612583*^9, 3.714279414460382*^9, 3.714279661261375*^9, {
   3.7142797159516*^9, 3.714279723062406*^9}, {3.714279897154961*^9, 
   3.714279927933683*^9}, 3.719070809679038*^9, {3.7190709259072933`*^9, 
   3.7190709745358152`*^9}, 3.7269006220063543`*^9, 3.7269006559788027`*^9, 
   3.727682789618792*^9, 3.727694937245655*^9, 3.7303980057822247`*^9, 
   3.730623385792329*^9},
 CellLabel->"Out[3]=",
 CellID->651678644,ExpressionUUID->"a2855aac-7712-4efb-ae58-0e0fd3888853"]
}, Open  ]],

Cell[TextData[{
 "If ",
 Cell[BoxData["\<\"Units\"\>"], "InlineFormula",ExpressionUUID->
  "ba1ae7c9-ebe4-449f-b361-1ea49778b713"],
 " is set to ",
 Cell[BoxData[
  ButtonBox["False",
   BaseStyle->"Link",
   ButtonData->"paclet:ref/False"]], "InlineFormula",ExpressionUUID->
  "e2895bd2-eb64-4efb-af41-7c2f1fcd9317"],
 ", the returned number has units of reciprocal centimeters:"
}], "ExampleText",
 CellChangeTimes->{{3.714279931920673*^9, 3.714279932538048*^9}, {
  3.7142799791340714`*^9, 3.714280013331224*^9}, {3.726900631897388*^9, 
  3.7269006356267223`*^9}},
 CellID->1838912588,ExpressionUUID->"f85eec64-6790-4602-836b-e41d01f00d1d"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"AttenuationCoefficient", "[", 
  RowBox[{"\"\<Ferrocene\>\"", ",", 
   RowBox[{"\"\<Units\>\"", "\[Rule]", "False"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.714279745938089*^9, 3.7142797465304947`*^9}, 
   3.719070963123423*^9},
 CellLabel->"In[4]:=",
 CellID->1413782592,ExpressionUUID->"509ec2b8-5f11-4a9b-8df0-bf9acb838f5d"],

Cell[BoxData["16.86144646475711`"], "Output",
 CellChangeTimes->{
  3.7142797468795137`*^9, 3.714279785607567*^9, {3.714279897322315*^9, 
   3.714279928101853*^9}, {3.719070963557802*^9, 3.719070975006576*^9}, {
   3.7269006266378613`*^9, 3.7269006563688173`*^9}, 3.727682791101535*^9, 
   3.727694940378685*^9, 3.730398010226141*^9, 3.730623387940943*^9},
 CellLabel->"Out[4]=",
 CellID->1647640415,ExpressionUUID->"196f801a-1837-49e0-8d89-44d21d6f631a"]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["More Examples", "ExtendedExamplesSection",
 CellTags->"ExtendedExamples",
 CellID->1854448968,ExpressionUUID->"bf390231-691f-46bc-bb79-8e0c35a93bbc"],

Cell[BoxData[
 InterpretationBox[Cell[
  "Scope", "ExampleSection",ExpressionUUID->
   "27f7b4c9-bfda-4f02-a2eb-74e13996c0cc"],
  $Line = 0; Null]], "ExampleSection",
 CellID->1293636265,ExpressionUUID->"9a41099e-fd62-4d27-a616-0e5469d2fa60"],

Cell[BoxData[
 InterpretationBox[Cell[
  "Generalizations & Extensions", "ExampleSection",ExpressionUUID->
   "b4e55c8c-9267-4a9a-b06f-46688727e5ae"],
  $Line = 0; Null]], "ExampleSection",
 CellID->1020263627,ExpressionUUID->"edfb213d-eb29-41fd-9f7a-29ccfb996402"],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "Options", "ExampleSection",ExpressionUUID->
   "14b6c9e9-0631-41b7-a609-e644db4eb149"],
  $Line = 0; Null]], "ExampleSection",
 CellID->2061341341,ExpressionUUID->"da7e1875-5c35-4028-9304-a17f611f755e"],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\"Coefficient\"", "ExampleSubsection",ExpressionUUID->
   "3f190a64-847f-4457-bafe-7fc789beb3a2"],
  $Line = 0; Null]], "ExampleSubsection",
 CellChangeTimes->{{3.727682846262052*^9, 3.727682849035223*^9}},
 CellID->1757724783,ExpressionUUID->"9a213e9d-4705-4a76-9a22-d6542fbeab90"],

Cell[TextData[{
 "The default output coefficient is the ",
 StyleBox["linear attenuation coefficient",
  FontSlant->"Italic"],
 ", but the ",
 StyleBox["mass absorption coefficient",
  FontSlant->"Italic"],
 " can be calculate by dividing the linear coefficient by the mass density of \
the crystal:"
}], "ExampleText",
 CellChangeTimes->{{3.7276831382490587`*^9, 3.7276831788786983`*^9}, {
  3.727683267526663*^9, 3.727683272761294*^9}, {3.730623236358197*^9, 
  3.730623249916547*^9}, {3.7373980463022614`*^9, 3.737398077188869*^9}},
 CellID->815635903,ExpressionUUID->"eeca6a5d-472d-4263-86df-2c3d27bebb33"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"AttenuationCoefficient", "[", 
  RowBox[{"\"\<GalliumArsenide\>\"", ",", "\[IndentingNewLine]", 
   RowBox[{"Quantity", "[", 
    RowBox[{"1.18667*^-2", ",", "\"\<Megaelectronvolts\>\""}], "]"}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{"\"\<Coefficient\>\"", "\[Rule]", "\"\<MassAbsorption\>\""}]}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.7373980912304487`*^9, 3.737398136075774*^9}},
 CellLabel->"In[1]:=",
 CellID->355650698,ExpressionUUID->"01b81b9c-4034-4aa6-98b4-d723b2a32f47"],

Cell[BoxData[
 TemplateBox[{"88.9799668107443`",RowBox[{
     SuperscriptBox["\"cm\"", "2"], "\[NegativeMediumSpace]", "\"/\"", 
     "\[InvisibleSpace]", "\"g\""}],"centimeters squared per gram",FractionBox[
    SuperscriptBox["\"Centimeters\"", "2"], "\"Grams\""]},
  "Quantity"]], "Output",
 CellChangeTimes->{3.737398139314909*^9, 3.737398177714642*^9},
 CellLabel->"Out[1]=",
 CellID->1948247547,ExpressionUUID->"6b329251-a1bd-4589-a0d6-00a5c04e46c1"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\"PhysicalProcess\"", "ExampleSubsection",ExpressionUUID->
   "1ae8bae7-b1ee-4659-9c93-a501bee954ef"],
  $Line = 0; Null]], "ExampleSubsection",
 CellChangeTimes->{{3.727682857290298*^9, 3.727682860473531*^9}},
 CellID->1295379749,ExpressionUUID->"708bdbfa-7ce3-4a19-8258-d670f0c86789"],

Cell["\<\
With this option, the attenuation contribution of a single cross section type \
can be calculated:\
\>", "ExampleText",
 CellChangeTimes->{{3.7277863902756357`*^9, 3.727786447163396*^9}},
 CellID->1624495902,ExpressionUUID->"da243fb8-c8b4-4dd6-a232-942bff2d698a"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Table", "[", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"AttenuationCoefficient", "[", 
    RowBox[{"\"\<GalliumArsenide\>\"", ",", "1.0", ",", "\[IndentingNewLine]", 
     RowBox[{"\"\<PhysicalProcess\>\"", "\[Rule]", "p"}]}], "]"}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{"{", 
    RowBox[{"p", ",", 
     RowBox[{"{", 
      RowBox[{
      "\"\<Photoelectric\>\"", ",", "\"\<Coherent\>\"", ",", 
       "\"\<Incoherent\>\"", ",", "\"\<Total\>\""}], "}"}]}], "}"}]}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.727683195443605*^9, 3.7276833104200172`*^9}, {
   3.727683563102683*^9, 3.7276835645095654`*^9}, {3.730623160991932*^9, 
   3.73062320606961*^9}, 3.7306232804943533`*^9, {3.730623397146785*^9, 
   3.730623399961025*^9}},
 CellLabel->"In[1]:=",
 CellID->759871737,ExpressionUUID->"8fdb3348-573c-4784-a27c-3afb4f2f54c7"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   TemplateBox[{
    "793.9545248975207`",RowBox[{"\"/\"", "\[InvisibleSpace]", "\"cm\""}],
     "reciprocal centimeters",FractionBox["1", "\"Centimeters\""]},
    "QuantityPostfix"], ",", 
   TemplateBox[{
    "6.734152064052233`",RowBox[{"\"/\"", "\[InvisibleSpace]", "\"cm\""}],
     "reciprocal centimeters",FractionBox["1", "\"Centimeters\""]},
    "QuantityPostfix"], ",", 
   TemplateBox[{
    "0.43517461177704947`",RowBox[{"\"/\"", "\[InvisibleSpace]", "\"cm\""}],
     "reciprocal centimeters",FractionBox["1", "\"Centimeters\""]},
    "QuantityPostfix"], ",", 
   TemplateBox[{
    "801.1226849209929`",RowBox[{"\"/\"", "\[InvisibleSpace]", "\"cm\""}],
     "reciprocal centimeters",FractionBox["1", "\"Centimeters\""]},
    "QuantityPostfix"]}], "}"}]], "Output",
 CellChangeTimes->{{3.727683200508308*^9, 3.727683224276166*^9}, {
   3.727683306102613*^9, 3.727683312741312*^9}, 3.727683497250491*^9, 
   3.727683568337237*^9, 3.727694956776971*^9, {3.7276964235763903`*^9, 
   3.7276964260656567`*^9}, 3.727709000584367*^9, 3.727709503739324*^9, 
   3.727785918384519*^9, {3.730623188021263*^9, 3.730623211450885*^9}, {
   3.730623394783742*^9, 3.730623421912447*^9}},
 CellLabel->"Out[1]=",
 CellID->1198581223,ExpressionUUID->"b5c2b778-da14-4aeb-b7c7-2e3c4b33a44b"]
}, Open  ]],

Cell["\<\
There are several equivalent names for the same type of cross section;\
\>", "ExampleText",
 CellChangeTimes->{{3.727786464500833*^9, 3.727786489474495*^9}},
 CellID->1676165524,ExpressionUUID->"b0614eed-af95-4f3a-891d-22cf3f9a3b8a"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"SameQ", "@@", 
  RowBox[{"Table", "[", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"AttenuationCoefficient", "[", 
     RowBox[{"\"\<Nickel\>\"", ",", "1.0", ",", 
      RowBox[{"\"\<PhysicalProcess\>\"", "\[Rule]", "p"}]}], "]"}], ",", 
    "\[IndentingNewLine]", 
    RowBox[{"{", 
     RowBox[{"p", ",", 
      RowBox[{"{", 
       RowBox[{
       "\"\<Incoherent\>\"", ",", "\"\<Compton\>\"", ",", 
        "\"\<Inelastic\>\""}], "}"}]}], "}"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.7277863307043858`*^9, 3.7277863607271233`*^9}, {
  3.727786519458467*^9, 3.727786520658019*^9}, {3.730623417210576*^9, 
  3.730623418144857*^9}},
 CellLabel->"In[2]:=",
 CellID->1263984472,ExpressionUUID->"463ebad2-c98f-400d-a692-e3f81feeb449"],

Cell[BoxData["True"], "Output",
 CellChangeTimes->{{3.727786355329442*^9, 3.727786371919482*^9}, {
  3.727786521021209*^9, 3.7277865237424583`*^9}, {3.730623405091714*^9, 
  3.730623422249146*^9}},
 CellLabel->"Out[2]=",
 CellID->390481182,ExpressionUUID->"04077b83-5da2-4d76-a54f-879359449590"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\"Source\"", "ExampleSubsection",ExpressionUUID->
   "c4fe18f8-13d5-4edd-90cd-03b8bebbcddb"],
  $Line = 0; Null]], "ExampleSubsection",
 CellChangeTimes->{{3.727682863304534*^9, 3.7276828900452013`*^9}},
 CellID->647929167,ExpressionUUID->"39e0fd91-4597-4430-ac40-a7b143fcec99"],

Cell[TextData[{
 "Currently, ",
 Cell[BoxData[
 "\"\<xraylib\>\""], "InlineFormula",ExpressionUUID->
  "d899d29d-39ee-47ff-bcf6-301c167069e0"],
 " is the only source of scattering cross sections. By setting the source to \
one of the atomic scattering factor sources, the imaginary part of the atomic \
scattering factor (",
 Cell[BoxData[
  FormBox[
   SuperscriptBox["f", "\[Prime]\[Prime]",
    MultilineFunction->None], TraditionalForm]], "InlineMath",ExpressionUUID->
  "a2a1de41-0ab9-4955-abba-f284781250bf"],
 ") will be used to calculate the attenuation due to photoelectric absorption."
}], "ExampleText",
 CellChangeTimes->{{3.727786856947612*^9, 3.727786876866911*^9}, {
  3.727807977779598*^9, 3.727808069075965*^9}, {3.727808351296006*^9, 
  3.727808395804435*^9}, {3.727808426107901*^9, 3.727808427043626*^9}, {
  3.72780920891049*^9, 3.7278092135086803`*^9}},
 CellID->677651810,ExpressionUUID->"a8cae40b-8306-404d-b773-0cf92a7bb646"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"AttenuationCoefficient", "[", 
  RowBox[{"\"\<GalliumArsenide\>\"", ",", "1.0", ",", 
   RowBox[{"\"\<Source\>\"", "\[Rule]", "\"\<CromerLiberman\>\""}]}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.72778683516398*^9, 3.727786846786354*^9}, {
  3.727808406746728*^9, 3.7278084097722197`*^9}},
 CellLabel->"In[1]:=",
 CellID->1599760575,ExpressionUUID->"c23e1c59-3a99-4298-a8dc-5f7411020108"],

Cell[BoxData[
 TemplateBox[{
  "796.7490395439332`",RowBox[{"\"/\"", "\[InvisibleSpace]", "\"cm\""}],
   "reciprocal centimeters",FractionBox["1", "\"Centimeters\""]},
  "QuantityPostfix"]], "Output",
 CellChangeTimes->{
  3.727786847148095*^9, 3.7278084123662987`*^9, 3.727808596534339*^9, {
   3.72780927357415*^9, 3.727809275608138*^9}, 3.730623518107709*^9},
 CellLabel->"Out[1]=",
 CellID->1827476266,ExpressionUUID->"f3b23021-7f23-482e-b445-f3dbe392386f"]
}, Open  ]],

Cell[TextData[{
 "Only the photoelectric contribution will be considered, no matter what \
setting for ",
 Cell[BoxData[
 "\"\<PhysicalProcess\>\""], "InlineFormula",ExpressionUUID->
  "ab3cef49-2f40-434f-9809-9304fae3e5b5"],
 " is given."
}], "ExampleText",
 CellChangeTimes->{{3.7278092204704*^9, 3.7278092596602697`*^9}},
 CellID->7171638,ExpressionUUID->"8c5a2574-61a8-49ec-beb9-e70cdafe2d48"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\"Units\"", "ExampleSubsection",ExpressionUUID->
   "77cd3f8e-3122-4aa1-b2b4-dd658832eca7"],
  $Line = 0; Null]], "ExampleSubsection",
 CellChangeTimes->{{3.727682863304534*^9, 3.727682864259652*^9}},
 CellID->1653196224,ExpressionUUID->"042ce602-274c-4b54-82f9-9b1c151c7349"],

Cell[TextData[{
 "The default setting is ",
 Cell[BoxData[
 "\"\<True\>\""], "InlineFormula",ExpressionUUID->
  "ed7a9bef-2c06-4165-950d-54a7200ffcfd"],
 ", which returns output as a ",
 ButtonBox["Quantity",
  BaseStyle->"Link",
  ButtonData->"paclet:ref/Quantity"],
 "."
}], "ExampleText",
 CellChangeTimes->{{3.727850660597249*^9, 3.7278507075380907`*^9}},
 CellID->817307380,ExpressionUUID->"52da92b2-3051-4961-a638-f91e2a59b3c7"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"AttenuationCoefficient", "[", 
  RowBox[{"\"\<Copper\>\"", ",", "1.54", ",", 
   RowBox[{"\"\<Units\>\"", "\[Rule]", "False"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.727709006529344*^9, 3.7277090265628967`*^9}, {
  3.727850739155834*^9, 3.727850754497353*^9}, {3.7278507995045967`*^9, 
  3.727850824759544*^9}},
 CellLabel->"In[1]:=",
 CellID->616414863,ExpressionUUID->"2acb4f57-423a-440f-b4b7-c3db19239ec5"],

Cell[BoxData["461.49266638418146`"], "Output",
 CellChangeTimes->{{3.727850803479905*^9, 3.7278508272890253`*^9}, 
   3.7306235247019253`*^9, 3.744173891397911*^9},
 CellLabel->"Out[1]=",
 CellID->1866025604,ExpressionUUID->"4f69f4b0-695c-4bfd-b80e-bb450a5b58d1"]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[BoxData[
 InterpretationBox[Cell[
  "Applications", "ExampleSection",ExpressionUUID->
   "795a2970-c6d9-4f7b-90c2-699e806e97e7"],
  $Line = 0; Null]], "ExampleSection",
 CellID->258228157,ExpressionUUID->"441d0f9a-6b4b-4a0a-a75b-29687f4b8f74"],

Cell[BoxData[
 InterpretationBox[Cell[
  "Properties & Relations", "ExampleSection",ExpressionUUID->
   "180a7f8c-4853-487a-9383-abd013fd0d20"],
  $Line = 0; Null]], "ExampleSection",
 CellID->2123667759,ExpressionUUID->"ec76dc3c-ffbb-4b01-bc40-dbb65812a3ac"],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "Possible Issues", "ExampleSection",ExpressionUUID->
   "a656822f-ee7e-400e-a139-aad586003f1d"],
  $Line = 0; Null]], "ExampleSection",
 CellID->1305812373,ExpressionUUID->"9a311590-a07f-48bd-9620-1d93dbaabc45"],

Cell[TextData[{
 "The sources calculating the atomic scattering factor have a common upper \
truncation limit at ",
 Cell[BoxData[
  FormBox[
   RowBox[{"\[Lambda]", "=", 
    RowBox[{"2.5`", " ", "\[CapitalARing]"}]}], TraditionalForm]], 
  "InlineMath",ExpressionUUID->"7bc9fb9c-d00a-44e9-a3b1-ec471c44c3bb"],
 " in this package. No common ",
 StyleBox["lower limit",
  FontSlant->"Italic"],
 " has been made. For instance, the wavelength ",
 Cell[BoxData[
  FormBox[
   RowBox[{"\[Lambda]", "=", 
    RowBox[{"0.15", " ", "\[CapitalARing]"}]}], TraditionalForm]], 
  "InlineMath",ExpressionUUID->"cdd4f441-bdcb-4f6c-9fcd-41be57ab86af"],
 " is out of range for the source ",
 Cell[BoxData[
 "\"\<CromerLiberman\>\""], "InlineFormula",ExpressionUUID->
  "e9194e8b-f092-4aa6-a22c-3d64a2cac3ff"],
 ";"
}], "ExampleText",
 CellChangeTimes->{
  3.733807778570134*^9, {3.733807887981084*^9, 3.7338079500600033`*^9}, 
   3.733808320932712*^9, {3.733822352861212*^9, 3.733822494287847*^9}, 
   3.73382258427388*^9, {3.744170213757053*^9, 3.744170221341125*^9}},
 CellID->757412278,ExpressionUUID->"3228a613-bd2c-432c-bc56-904de5025958"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"AttenuationCoefficient", "[", 
  RowBox[{"\"\<Silicon\>\"", ",", "0.15", ",", 
   RowBox[{"\"\<Source\>\"", "\[Rule]", "\"\<CromerLiberman\>\""}]}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.7338078606898623`*^9, 3.733807877457891*^9}},
 CellLabel->"In[1]:=",
 CellID->326381480,ExpressionUUID->"20df1c78-049d-4d4e-92cd-44668b6ced16"],

Cell[BoxData[
 TemplateBox[{
  "InterpolatingFunction","dmval",
   "\"Input value \\!\\(\\*RowBox[{\\\"{\\\", \\\"0.15`\\\", \\\"}\\\"}]\\) \
lies outside the range of data in the interpolating function. Extrapolation \
will be used.\"",2,1,1,26423739896804836793,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{{3.733807866088201*^9, 3.733807877880191*^9}, 
   3.733822561360383*^9},
 CellLabel->"During evaluation of In[1]:=",
 CellID->67122436,ExpressionUUID->"6a0ca730-1638-46ca-bbbd-ef3720b46f66"],

Cell[BoxData[
 TemplateBox[{
  "InterpolatingFunction","dmval",
   "\"Input value \\!\\(\\*RowBox[{\\\"{\\\", \\\"0.15`\\\", \\\"}\\\"}]\\) \
lies outside the range of data in the interpolating function. Extrapolation \
will be used.\"",2,1,2,26423739896804836793,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{{3.733807866088201*^9, 3.733807877880191*^9}, 
   3.733822561416173*^9},
 CellLabel->"During evaluation of In[1]:=",
 CellID->697867177,ExpressionUUID->"c0b5698d-e06f-474e-b06e-3011de4e1bf2"],

Cell[BoxData[
 TemplateBox[{
  "0.11117425683729723`",RowBox[{"\"/\"", "\[InvisibleSpace]", "\"cm\""}],
   "reciprocal centimeters",FractionBox["1", "\"Centimeters\""]},
  "QuantityPostfix"]], "Output",
 CellChangeTimes->{{3.733807861402066*^9, 3.733807878003928*^9}, 
   3.733822561494011*^9},
 CellLabel->"Out[1]=",
 CellID->1645447572,ExpressionUUID->"6ac39c5d-688f-4cc8-bb7e-4036c1aa66cb"]
}, Open  ]],

Cell[TextData[{
 "\[Ellipsis] but is valid for the source ",
 Cell[BoxData[
 "\"\<Sasaki\>\""], "InlineFormula",ExpressionUUID->
  "fe254a96-e54c-4f86-882b-bcd338dddcf4"],
 ":"
}], "ExampleText",
 CellChangeTimes->{{3.733822512072979*^9, 3.733822571775663*^9}},
 CellID->1311844891,ExpressionUUID->"13665588-f805-424f-9339-5958f51d38e9"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"AttenuationCoefficient", "[", 
  RowBox[{"\"\<Silicon\>\"", ",", "0.15", ",", 
   RowBox[{"\"\<Source\>\"", "\[Rule]", "\"\<Sasaki\>\""}]}], "]"}]], "Input",\

 CellChangeTimes->{{3.733807832177252*^9, 3.733807837959749*^9}},
 CellLabel->"In[2]:=",
 CellID->1097327756,ExpressionUUID->"6b1ae5e1-2775-4e98-a781-2a7ab43c831c"],

Cell[BoxData[
 TemplateBox[{
  "0.10555365682928539`",RowBox[{"\"/\"", "\[InvisibleSpace]", "\"cm\""}],
   "reciprocal centimeters",FractionBox["1", "\"Centimeters\""]},
  "QuantityPostfix"]], "Output",
 CellChangeTimes->{{3.733807833936062*^9, 3.733807838484193*^9}, 
   3.733807879947612*^9, 3.733822562390813*^9},
 CellLabel->"Out[2]=",
 CellID->1890420185,ExpressionUUID->"66282b9f-e88b-4bf2-a6f8-c5dbf0dba135"]
}, Open  ]]
}, Open  ]],

Cell[BoxData[
 InterpretationBox[Cell[
  "Interactive Examples", "ExampleSection",ExpressionUUID->
   "ee9ef503-c4df-47e0-8924-619f9d403416"],
  $Line = 0; Null]], "ExampleSection",
 CellID->1653164318,ExpressionUUID->"f400096b-c137-48f8-b964-6cb752cf6a36"],

Cell[BoxData[
 InterpretationBox[Cell[
  "Neat Examples", "ExampleSection",ExpressionUUID->
   "4b078daf-82f4-49ca-b06f-72cb159d91e1"],
  $Line = 0; Null]], "ExampleSection",
 CellID->589267740,ExpressionUUID->"f62108dd-1d93-4d5d-acd4-20a2d4d2eb5a"],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[TextData[{
   StyleBox["Mathematica",
    FontSlant->"Italic"],
   " code"
  }], "ExampleSection",ExpressionUUID->"b2319b85-6aeb-4f5c-bcf9-781ac2f9be99"],
  $Line = 0; Null]], "ExampleSection",
 CellChangeTimes->{{3.714279624781777*^9, 3.714279626974546*^9}},
 CellID->1993819761,ExpressionUUID->"c4694888-e711-4d72-96f3-0f7a7b57d43e"],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"AttenuationCoefficient", "::", "invalidSource"}], "=", 
   "\"\<The source \[LeftGuillemet]`1`\[RightGuillemet] is invalid.\>\""}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"AttenuationCoefficient", "::", "invcoeff"}], "=", 
   "\"\<The \[LeftGuillemet]`1`\[RightGuillemet] coefficient is not \
recognised.\>\""}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"AttenuationCoefficient", "::", "peOnly"}], "=", 
   "\"\<Only the photoelectric cross section is related to \
\!\(\*StyleBox[FormBox[SuperscriptBox[\"f\", \
\"\[Prime]\[Prime]\",MultilineFunction->None],TraditionalForm], \
\"TI\"]\).\>\""}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"AttenuationCoefficient", "::", "asfLambda"}], "=", 
    "\"\<The wavelength, `1` \[CapitalARing], must be smaller than 2.5 \
\[CapitalARing] when using \!\(TraditionalForm\`\*SuperscriptBox[\(f\), \(\
\[DoublePrime]\)]\).\>\""}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"Options", "@", "AttenuationCoefficient"}], "=", 
    RowBox[{"{", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"\"\<Coefficient\>\"", "\[Rule]", "\"\<LinearAttenuation\>\""}],
       ",", "\[IndentingNewLine]", 
      RowBox[{
      "\"\<MassCoefficientMethod\>\"", "\[Rule]", "\"\<DivideByDensity\>\""}],
       ",", "\[IndentingNewLine]", 
      RowBox[{"(*", " ", "GetScatteringCrossSections", " ", "*)"}], 
      "\[IndentingNewLine]", 
      RowBox[{"\"\<PhysicalProcess\>\"", "\[Rule]", "\"\<\>\""}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"\"\<Source\>\"", "\[Rule]", "\"\<xraylib\>\""}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"\"\<Units\>\"", "\[Rule]", "True"}]}], "\[IndentingNewLine]", 
     "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"SyntaxInformation", "@", "AttenuationCoefficient"}], "=", 
   RowBox[{"{", "\[IndentingNewLine]", 
    RowBox[{"\"\<ArgumentsPattern\>\"", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{"_", ",", "_.", ",", 
       RowBox[{"OptionsPattern", "[", "]"}]}], "}"}]}], "\[IndentingNewLine]",
     "}"}]}], ";"}]}], "Input",
 InitializationCell->False,
 CellChangeTimes->{{3.7142771011593227`*^9, 3.714277116878936*^9}, 
   3.7142792426781883`*^9, {3.7187206630465183`*^9, 3.718720685173999*^9}, {
   3.725268806700364*^9, 3.725268823148202*^9}, {3.7252688760752687`*^9, 
   3.725268877026887*^9}, {3.725269156893145*^9, 3.725269165035409*^9}, {
   3.725269227570182*^9, 3.725269229209899*^9}, {3.725272373947567*^9, 
   3.7252723989784527`*^9}, {3.725273241918964*^9, 3.725273247278687*^9}, {
   3.725444185323474*^9, 3.7254441948992*^9}, {3.725444226978861*^9, 
   3.725444235801064*^9}, {3.725609418848913*^9, 3.7256094244180517`*^9}, 
   3.725617503769556*^9, {3.727595094743976*^9, 3.7275951525304117`*^9}, {
   3.727596157278677*^9, 3.727596157411038*^9}, {3.7275963376552258`*^9, 
   3.727596371990885*^9}, 3.727597556269699*^9, {3.72759862336992*^9, 
   3.7275986692757177`*^9}, {3.7275987211595488`*^9, 3.72759872414962*^9}, {
   3.727599661240222*^9, 3.7275997536656923`*^9}, {3.727600590765911*^9, 
   3.727600631635717*^9}, 3.72760107018398*^9, {3.7276011005221157`*^9, 
   3.727601101075252*^9}, {3.727605678373506*^9, 3.727605689480281*^9}, {
   3.72760572636793*^9, 3.727605726971096*^9}, {3.727606714090279*^9, 
   3.7276067407994757`*^9}, {3.733805766964224*^9, 3.733805852064715*^9}, {
   3.7338059500071087`*^9, 3.733805954223672*^9}, {3.733806093987896*^9, 
   3.733806159446396*^9}, {3.733807125176491*^9, 3.733807130300021*^9}, {
   3.733807422507615*^9, 3.733807432858644*^9}, {3.733807474026002*^9, 
   3.733807477003118*^9}, {3.735291796312076*^9, 3.735291797423252*^9}, {
   3.7352957155995493`*^9, 3.735295716462904*^9}, {3.735306109963554*^9, 
   3.7353061671057653`*^9}, {3.735306212768219*^9, 3.735306214246963*^9}, {
   3.7353065010127687`*^9, 3.735306503736622*^9}, {3.7373969463413887`*^9, 
   3.737396955499552*^9}, 3.737397728880765*^9, {3.738304012487692*^9, 
   3.738304052969688*^9}, 3.743865880198998*^9, 3.7441722690718527`*^9, {
   3.7567036374295893`*^9, 3.756703653275354*^9}, {3.756704023428278*^9, 
   3.7567040437871237`*^9}, 3.756705010054923*^9, 3.756710357649047*^9},
 CellLabel->"In[531]:=",
 CellID->1119415534,ExpressionUUID->"13693d99-ebe2-4a9b-86e3-1f27a7f4ee3d"],

Cell[BoxData[
 RowBox[{
  RowBox[{"AttenuationCoefficient", "[", "\[IndentingNewLine]", 
   RowBox[{"crystal_String", ",", "\[IndentingNewLine]", 
    RowBox[{"lambda", ":", 
     RowBox[{"_", "?", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         RowBox[{"NumericQ", "[", "#", "]"}], "||", 
         RowBox[{"QuantityQ", "[", "#", "]"}]}], "&"}], ")"}]}], ":", 
     RowBox[{"-", "1"}]}], ",", "\[IndentingNewLine]", 
    RowBox[{"OptionsPattern", "[", "]"}]}], "]"}], ":=", 
  RowBox[{"Block", "[", 
   RowBox[{
    RowBox[{"{", "\[IndentingNewLine]", 
     RowBox[{"\[Lambda]", ",", 
      RowBox[{"unitsQ", "=", 
       RowBox[{"TrueQ", "@", 
        RowBox[{"OptionValue", "[", "\"\<Units\>\"", "]"}]}]}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"coeff", "=", 
       RowBox[{"OptionValue", "[", "\"\<Coefficient\>\"", "]"}]}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"mcMethod", "=", 
       RowBox[{"OptionValue", "[", "\"\<MassCoefficientMethod\>\"", "]"}]}], 
      ",", "\[IndentingNewLine]", 
      RowBox[{"source", "=", 
       RowBox[{"OptionValue", "[", "\"\<Source\>\"", "]"}]}], ",", 
      RowBox[{"pp", "=", 
       RowBox[{"OptionValue", "[", "\"\<PhysicalProcess\>\"", "]"}]}], ",", 
      "csDir", ",", "asfFile", ",", "\[IndentingNewLine]", "V", ",", 
      "\[Sigma]", ",", "\[CapitalSigma]", ",", "column", ",", "atomdata", ",",
       "r", ",", "siteM", ",", "\[IndentingNewLine]", "fpp", ",", "re", ",", 
      "\[Mu]", ",", "\[Rho]"}], "\[IndentingNewLine]", "}"}], ",", 
    "\[IndentingNewLine]", "\[IndentingNewLine]", 
    RowBox[{"(*", 
     RowBox[{
      RowBox[{"--", "-"}], "*", " ", "Checking", " ", "input", " ", "*", 
      RowBox[{"--", "-"}]}], "*)"}], "\[IndentingNewLine]", "\t", 
    RowBox[{
     RowBox[{"InputCheck", "[", 
      RowBox[{"\"\<CrystalQ\>\"", ",", "crystal"}], "]"}], ";", 
     "\[IndentingNewLine]", "\t", 
     RowBox[{"\[Lambda]", "=", 
      RowBox[{"InputCheck", "[", 
       RowBox[{"\"\<ProcessWavelength\>\"", ",", "crystal", ",", "lambda"}], 
       "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", "\t", 
     RowBox[{"csDir", "=", 
      RowBox[{"FileNameJoin", "[", 
       RowBox[{"{", "\[IndentingNewLine]", "\t", 
        RowBox[{
        "$MaXrdPath", ",", "\"\<Core\>\"", ",", "\"\<Data\>\"", ",", 
         "\"\<CrossSections\>\"", ",", "source"}], "}"}], "]"}]}], ";", 
     "\[IndentingNewLine]", "\t", 
     RowBox[{"asfFile", "=", 
      RowBox[{"FileNameJoin", "[", 
       RowBox[{"{", 
        RowBox[{
        "$MaXrdPath", ",", "\"\<Core\>\"", ",", "\"\<Data\>\"", ",", 
         "\[IndentingNewLine]", "\t", "\"\<AtomicScatteringFactor\>\"", ",", 
         "\"\<AnomalousCorrections\>\"", ",", 
         RowBox[{"source", "<>", "\"\<.m\>\""}]}], "}"}], "]"}]}], ";", 
     "\[IndentingNewLine]", "\t", 
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"DirectoryQ", "[", "csDir", "]"}], "\[Nor]", 
        RowBox[{"FileExistsQ", "[", "asfFile", "]"}]}], ",", 
       "\[IndentingNewLine]", "\t\t", 
       RowBox[{
        RowBox[{"Message", "[", 
         RowBox[{
          RowBox[{"AttenuationCoefficient", "::", "invalidSource"}], ",", 
          "source"}], "]"}], ";", "\[IndentingNewLine]", "\t\t", 
        RowBox[{"Abort", "[", "]"}]}]}], "]"}], ";", "\[IndentingNewLine]", 
     "\[IndentingNewLine]", "\t", 
     RowBox[{"(*", " ", 
      RowBox[{"Processing", " ", "cross", " ", "section", " ", "type"}], " ", 
      "*)"}], "\[IndentingNewLine]", "\t", 
     RowBox[{"If", "[", "\[IndentingNewLine]", "\t", 
      RowBox[{"(*", " ", 
       RowBox[{
        RowBox[{"a", ".", " ", 
         RowBox[{"Select", " ", "'"}]}], 
        RowBox[{"PhysicalProcess", "'"}], " ", "manually"}], " ", "*)"}], 
      "\[IndentingNewLine]", "\t", 
      RowBox[{
       RowBox[{"pp", "=!=", "\"\<\>\""}], ",", "\[IndentingNewLine]", "\t", 
       RowBox[{"column", "=", 
        RowBox[{"Which", "[", "\[IndentingNewLine]", "\t", 
         RowBox[{
          RowBox[{"MemberQ", "[", 
           RowBox[{
            RowBox[{"{", "\[IndentingNewLine]", "\t", 
             RowBox[{
             "\"\<Photoelectric\>\"", ",", "\"\<Photoionisation\>\""}], "}"}],
             ",", "pp"}], "]"}], ",", "2", ",", "\[IndentingNewLine]", "\t", 
          RowBox[{"MemberQ", "[", 
           RowBox[{
            RowBox[{"{", "\[IndentingNewLine]", "\t", 
             RowBox[{
             "\"\<Coherent\>\"", ",", "\"\<Rayleigh\>\"", ",", 
              "\"\<Thompson\>\"", ",", "\[IndentingNewLine]", "\t", 
              "\"\<Classical\>\"", ",", "\"\<Elastic\>\""}], "}"}], ",", 
            "pp"}], "]"}], ",", "3", ",", "\[IndentingNewLine]", "\t", 
          RowBox[{"MemberQ", "[", 
           RowBox[{
            RowBox[{"{", "\[IndentingNewLine]", "\t", 
             RowBox[{
             "\"\<Incoherent\>\"", ",", "\"\<Compton\>\"", ",", 
              "\"\<Inelastic\>\""}], "\[IndentingNewLine]", "\t", "}"}], ",", 
            "pp"}], "]"}], ",", "4", ",", "\[IndentingNewLine]", "\t", 
          RowBox[{"pp", "===", "\"\<Total\>\""}], ",", "5", ",", 
          "\[IndentingNewLine]", "\t", "True", ",", 
          RowBox[{
           RowBox[{"Message", "[", 
            RowBox[{
             RowBox[{"AttenuationCoefficient", "::", "invproc"}], ",", "pp"}],
             "]"}], ";", 
           RowBox[{"Abort", "[", "]"}]}]}], "\[IndentingNewLine]", "\t", 
         "]"}]}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", "\t", 
       RowBox[{"(*", " ", 
        RowBox[{
         RowBox[{"b", ".", " ", "Select"}], " ", "automatically", " ", 
         "based", " ", "on", " ", "coefficient", " ", "type"}], " ", "*)"}], 
       "\[IndentingNewLine]", "\t", 
       RowBox[{"column", "=", 
        RowBox[{"Which", "[", "\[IndentingNewLine]", "\t", 
         RowBox[{
          RowBox[{"MemberQ", "[", "\[IndentingNewLine]", "\t", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{
             "\"\<LinearAttenuation\>\"", ",", "\"\<MassAbsorption\>\""}], 
             "}"}], ",", "\[IndentingNewLine]", "\t", "coeff"}], "]"}], ",", 
          "\[IndentingNewLine]", "\t", "5", ",", 
          RowBox[{"(*", " ", 
           RowBox[{"Total", " ", "=", " ", 
            RowBox[{"ph", ".", "el", ".", " ", 
             RowBox[{"+", " ", 
              RowBox[{"Ray", ".", " ", 
               RowBox[{"+", " ", 
                RowBox[{"Comp", "."}]}]}]}]}]}], " ", "*)"}], 
          "\[IndentingNewLine]", "\[IndentingNewLine]", "\t", "True", ",", 
          "\[IndentingNewLine]", "\t", 
          RowBox[{
           RowBox[{"Message", "[", 
            RowBox[{
             RowBox[{"AttenuationCoefficient", "::", "invcoeff"}], ",", 
             "coeff"}], "]"}], ";", "\[IndentingNewLine]", "\t", 
           RowBox[{"Abort", "[", "]"}]}]}], "]"}]}]}], "\[IndentingNewLine]", 
      "\t", "]"}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", 
     RowBox[{"(*", 
      RowBox[{
       RowBox[{"--", "-"}], "*", " ", "Calculations", " ", "*", 
       RowBox[{"--", "-"}]}], "*)"}], "\[IndentingNewLine]", "\t", 
     RowBox[{"(*", " ", 
      RowBox[{"Auxiliary", " ", "variables"}], " ", "*)"}], 
     "\[IndentingNewLine]", "\t", 
     RowBox[{"V", "=", 
      RowBox[{"Sqrt", "@", 
       RowBox[{"Det", "@", 
        RowBox[{"GetCrystalMetric", "@", "crystal"}]}]}]}], ";", 
     "\[IndentingNewLine]", "\t", "\[IndentingNewLine]", "\t", 
     RowBox[{"(*", " ", 
      RowBox[{"Calculation", " ", "method"}], " ", "*)"}], 
     "\[IndentingNewLine]", "\t", 
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{"DirectoryQ", "@", "csDir"}], ",", "\[IndentingNewLine]", "\t", 
       RowBox[{"(*", " ", 
        RowBox[{
         RowBox[{"a", ".", " ", "Using"}], " ", "cross", " ", "sections"}], 
        " ", "*)"}], "\[IndentingNewLine]", "\t", 
       RowBox[{
        RowBox[{"\[Sigma]", "=", 
         RowBox[{"Normal", "@", 
          RowBox[{"GetScatteringCrossSections", "[", 
           RowBox[{
           "crystal", ",", "\[Lambda]", ",", "\[IndentingNewLine]", "\t", 
            RowBox[{"\"\<PhysicalProcess\>\"", "\[Rule]", "pp"}], ",", 
            RowBox[{"\"\<Source\>\"", "\[Rule]", "source"}], ",", 
            RowBox[{"\"\<Units\>\"", "\[Rule]", "False"}]}], "]"}]}]}], ";", 
        "\[IndentingNewLine]", "\[IndentingNewLine]", "\t\t", 
        RowBox[{"(*", " ", 
         RowBox[{
         "Multiplying", " ", "atoms", " ", "with", " ", "corresponding", " ", 
          "cross", " ", "sections"}], " ", "*)"}], "\[IndentingNewLine]", 
        "\t\t", 
        RowBox[{"atomdata", "=", 
         RowBox[{"Values", "@", 
          RowBox[{"$CrystalData", "\[LeftDoubleBracket]", 
           RowBox[{
           "crystal", ",", "\"\<AtomData\>\"", ",", "All", ",", 
            "\[IndentingNewLine]", "\t", 
            RowBox[{"{", 
             RowBox[{
             "\"\<Element\>\"", ",", "\"\<FractionalCoordinates\>\"", ",", 
              "\"\<OccupationFactor\>\""}], "}"}]}], 
           "\[RightDoubleBracket]"}]}]}], ";", "\[IndentingNewLine]", "\t\t", 
        
        RowBox[{
         RowBox[{"atomdata", "\[LeftDoubleBracket]", 
          RowBox[{"All", ",", "1"}], "\[RightDoubleBracket]"}], "=", 
         RowBox[{"StringDelete", "[", 
          RowBox[{
           RowBox[{"atomdata", "\[LeftDoubleBracket]", 
            RowBox[{"All", ",", "1"}], "\[RightDoubleBracket]"}], ",", 
           "\[IndentingNewLine]", "\t\t", 
           RowBox[{"{", 
            RowBox[{"\"\<+\>\"", ",", "\"\<-\>\"", ",", "DigitCharacter"}], 
            "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", "\t\t", 
        RowBox[{"atomdata", "=", 
         RowBox[{"atomdata", "/.", 
          RowBox[{"Join", "[", "\[IndentingNewLine]", "\t\t", 
           RowBox[{"\[Sigma]", ",", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"Missing", "[", 
               RowBox[{"\"\<KeyAbsent\>\"", ",", "\"\<OccupationFactor\>\""}],
                "]"}], "\[Rule]", "1"}], "}"}]}], "]"}]}]}], ";", 
        "\[IndentingNewLine]", "\t\t", 
        RowBox[{"r", "=", 
         RowBox[{"atomdata", "\[LeftDoubleBracket]", 
          RowBox[{"All", ",", "2"}], "\[RightDoubleBracket]"}]}], ";", 
        "\[IndentingNewLine]", "\t\t", 
        RowBox[{"siteM", "=", 
         RowBox[{"Table", "[", 
          RowBox[{
           RowBox[{"Length", "@", 
            RowBox[{
            "SymmetryEquivalentPositions", "[", "\[IndentingNewLine]", "\t\t", 
             RowBox[{"crystal", ",", 
              RowBox[{
              "r", "\[LeftDoubleBracket]", "a", "\[RightDoubleBracket]"}], 
              ",", 
              RowBox[{"\"\<UseCentring\>\"", "\[Rule]", "True"}]}], "]"}]}], 
           ",", 
           RowBox[{"{", 
            RowBox[{"a", ",", 
             RowBox[{"Length", "@", "r"}]}], "}"}]}], "]"}]}], ";", 
        "\[IndentingNewLine]", "\t\t", 
        RowBox[{
         RowBox[{"atomdata", "\[LeftDoubleBracket]", 
          RowBox[{"All", ",", "2"}], "\[RightDoubleBracket]"}], "=", 
         "siteM"}], ";", "\[IndentingNewLine]", "\t\t", 
        RowBox[{"\[CapitalSigma]", "=", 
         RowBox[{"Total", "[", 
          RowBox[{"Times", "@@@", "atomdata"}], "]"}]}], ";", 
        "\[IndentingNewLine]", "\t\t", 
        RowBox[{"\[Mu]", "=", 
         RowBox[{"\[CapitalSigma]", "/", "V"}]}]}], ",", 
       "\[IndentingNewLine]", "\[IndentingNewLine]", "\t", 
       RowBox[{"(*", " ", 
        RowBox[{
         RowBox[{
          RowBox[{"b", ".", " ", "Using"}], " ", "f"}], "-", "double", "-", 
         "prime"}], " ", "*)"}], "\[IndentingNewLine]", "\t\t", 
       RowBox[{"(*", " ", 
        RowBox[{"Check", " ", "wavelength"}], " ", "*)"}], 
       "\[IndentingNewLine]", "\t\t", 
       RowBox[{
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{"\[Lambda]", ">", "2.5"}], ",", "\[IndentingNewLine]", 
          "\t\t", 
          RowBox[{
           RowBox[{"Message", "[", 
            RowBox[{
             RowBox[{"AttenuationCoefficient", "::", "asfLambda"}], ",", 
             RowBox[{"ToString", "@", "\[Lambda]"}]}], "]"}], ";", 
           "\[IndentingNewLine]", "\t\t", 
           RowBox[{"Abort", "[", "]"}]}]}], "]"}], ";", "\[IndentingNewLine]",
         "\[IndentingNewLine]", "\t\t", 
        RowBox[{"column", "=", "3"}], ";", 
        RowBox[{"(*", " ", 
         RowBox[{"Force", " ", 
          RowBox[{"p", ".", "e", ".", " ", "cross"}], " ", "section", " ", 
          "only"}], " ", "*)"}], "\[IndentingNewLine]", "\t\t", 
        RowBox[{"re", "=", "2.81794032*^-15"}], ";", "\[IndentingNewLine]", 
        "\t\t", 
        RowBox[{"fpp", "=", 
         RowBox[{"Im", "@", 
          RowBox[{"StructureFactor", "[", 
           RowBox[{"crystal", ",", 
            RowBox[{"{", 
             RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", "\[Lambda]", ",", 
            "\[IndentingNewLine]", "\t\t", 
            RowBox[{"\"\<AbsoluteValue\>\"", "\[Rule]", "False"}], ",", 
            "\[IndentingNewLine]", "\t\t", 
            RowBox[{"\"\<f1f2Source\>\"", "\[Rule]", "source"}]}], "]"}]}]}], 
        ";", "\[IndentingNewLine]", "\t\t", 
        RowBox[{"(*", " ", 
         RowBox[{"(", 
          RowBox[{
          "See", " ", "formula", " ", "in", " ", "documentation", " ", "page",
            " ", "details"}], ")"}], " ", "*)"}], "\[IndentingNewLine]", 
        "\t\t", 
        RowBox[{"\[Mu]", "=", 
         RowBox[{"2", "*", "re", "*", 
          RowBox[{"\[Lambda]", "/", "V"}], "*", 
          RowBox[{"Abs", "[", "fpp", "]"}], "*", 
          RowBox[{"Power", "[", 
           RowBox[{"10", ",", "18"}], "]"}]}]}]}]}], "\[IndentingNewLine]", 
      "\t", "]"}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", "\t", 
     RowBox[{"(*", " ", 
      RowBox[{"Normalise", " ", "by", " ", "mass", " ", 
       RowBox[{"density", "?"}]}], " ", "*)"}], "\[IndentingNewLine]", "\t", 
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"coeff", "===", "\"\<MassAbsorption\>\""}], "&&", 
        RowBox[{"mcMethod", "===", "\"\<DivideByDensity\>\""}]}], ",", 
       "\[IndentingNewLine]", "\t", 
       RowBox[{
        RowBox[{"\[Rho]", "=", 
         RowBox[{"CrystalDensity", "[", 
          RowBox[{"crystal", ",", 
           RowBox[{"\"\<Units\>\"", "\[Rule]", "False"}]}], "]"}]}], ";", 
        "\[IndentingNewLine]", "\t", 
        RowBox[{"If", "[", 
         RowBox[{"unitsQ", ",", "\[IndentingNewLine]", "\t", 
          RowBox[{"Return", "@", 
           RowBox[{"Quantity", "[", 
            RowBox[{
             RowBox[{"\[Mu]", "/", "\[Rho]"}], ",", 
             RowBox[{
              RowBox[{"\"\<Centimeters\>\"", "^", "2"}], "/", 
              "\"\<Grams\>\""}]}], "]"}]}], ",", "\[IndentingNewLine]", "\t", 
          
          RowBox[{"Return", "[", 
           RowBox[{"\[Mu]", "/", "\[Rho]"}], "]"}]}], "]"}]}]}], 
      "\[IndentingNewLine]", "\t", "]"}], ";", "\[IndentingNewLine]", 
     "\[IndentingNewLine]", 
     RowBox[{"(*", " ", 
      RowBox[{"Output", " ", "linear", " ", "coefficient"}], " ", "*)"}], 
     "\[IndentingNewLine]", 
     RowBox[{"If", "[", 
      RowBox[{"unitsQ", ",", 
       RowBox[{"Quantity", "[", 
        RowBox[{"\[Mu]", ",", 
         RowBox[{"\"\<Centimeters\>\"", "^", 
          RowBox[{"(", 
           RowBox[{"-", "1"}], ")"}]}]}], "]"}], ",", "\[Mu]"}], "]"}]}]}], 
   "\[IndentingNewLine]", "]"}]}]], "Input",
 InitializationCell->False,
 CellChangeTimes->{{3.682241896337058*^9, 3.6822419009563293`*^9}, {
   3.6822421030731297`*^9, 3.682242104796829*^9}, {3.682242247634622*^9, 
   3.682242293608499*^9}, {3.6822423242774973`*^9, 3.6822424939877663`*^9}, {
   3.682242524871819*^9, 3.682242610095582*^9}, {3.6822426631468697`*^9, 
   3.682242849688897*^9}, {3.682242985123843*^9, 3.682243000592795*^9}, {
   3.682243032221999*^9, 3.682243042906146*^9}, {3.682243121993319*^9, 
   3.682243187533738*^9}, {3.6822433171568623`*^9, 3.682243318068676*^9}, {
   3.6822433533711243`*^9, 3.68224345949043*^9}, {3.682243499999116*^9, 
   3.682243500570818*^9}, {3.682243559642397*^9, 3.682243568303032*^9}, {
   3.682243656585619*^9, 3.682243807041559*^9}, {3.682243892622666*^9, 
   3.682243979341007*^9}, {3.682244011749632*^9, 3.682244092729911*^9}, {
   3.6822441869470167`*^9, 3.682244221175058*^9}, {3.68224427065597*^9, 
   3.682244283409008*^9}, {3.6822443160128517`*^9, 3.682244326447394*^9}, {
   3.682244392020493*^9, 3.682244400571671*^9}, {3.682244596208706*^9, 
   3.682244803339835*^9}, {3.682244951115906*^9, 3.6822449654470167`*^9}, {
   3.682247256239483*^9, 3.682247304444981*^9}, {3.682247343926553*^9, 
   3.682247361035624*^9}, {3.682247395780785*^9, 3.6822474984407682`*^9}, {
   3.6822475305652437`*^9, 3.682247636381772*^9}, {3.6822476807262373`*^9, 
   3.682247690229601*^9}, {3.682247723533629*^9, 3.682247825538166*^9}, {
   3.682247866195016*^9, 3.6822478768890457`*^9}, {3.682247927112714*^9, 
   3.682248080675892*^9}, {3.682248357004342*^9, 3.682248375626561*^9}, {
   3.6822486441315317`*^9, 3.682248669634107*^9}, 3.68224956936229*^9, 
   3.682262332986014*^9, {3.6822623719028997`*^9, 3.68226237223594*^9}, {
   3.682312281830681*^9, 3.6823123030407467`*^9}, {3.682323578349629*^9, 
   3.682323592418137*^9}, {3.6823237158461313`*^9, 3.682323721213748*^9}, 
   3.682327825752265*^9, {3.682327891309991*^9, 3.682327908905006*^9}, {
   3.682328462663025*^9, 3.682328464594318*^9}, {3.6823288379476137`*^9, 
   3.682328840375494*^9}, {3.6823289450420847`*^9, 3.682328948786008*^9}, 
   3.682329021553924*^9, {3.682329649608305*^9, 3.682329652832589*^9}, 
   3.6823298080835743`*^9, {3.682350312716905*^9, 3.682350378410404*^9}, 
   3.6823504635691757`*^9, {3.6823505010243587`*^9, 3.682350503583688*^9}, {
   3.68235624088593*^9, 3.68235624215532*^9}, {3.6824154065363083`*^9, 
   3.682415411290797*^9}, {3.6824949312809687`*^9, 3.682494933923278*^9}, {
   3.682494968776065*^9, 3.6824950015362787`*^9}, {3.682495062367214*^9, 
   3.6824950649247932`*^9}, {3.682495113046337*^9, 3.6824951159073544`*^9}, {
   3.68249526412218*^9, 3.682495265376318*^9}, {3.68249545065454*^9, 
   3.682495470163967*^9}, {3.682495512292554*^9, 3.682495515202944*^9}, {
   3.682495556347404*^9, 3.682495579369482*^9}, {3.6824958395091257`*^9, 
   3.682495843227323*^9}, {3.6824961499028397`*^9, 3.682496152773938*^9}, {
   3.682496263451882*^9, 3.682496267049795*^9}, {3.682496312064939*^9, 
   3.6824963159122458`*^9}, {3.682496526788476*^9, 3.682496526940209*^9}, {
   3.682496864685812*^9, 3.682496866861273*^9}, {3.682496942171248*^9, 
   3.68249696514644*^9}, 3.682497201839513*^9, {3.6824972729799232`*^9, 
   3.682497296643372*^9}, {3.6824973270838213`*^9, 3.68249734521832*^9}, 
   3.68268180724885*^9, {3.684128291025429*^9, 3.684128389624958*^9}, {
   3.68412845933915*^9, 3.684128486385932*^9}, {3.684128529353738*^9, 
   3.6841285582182617`*^9}, {3.6841288206899014`*^9, 3.684128901287672*^9}, {
   3.684128968928697*^9, 3.68412900913936*^9}, {3.6841292785084352`*^9, 
   3.684129357017983*^9}, {3.684129890723934*^9, 3.684129917971912*^9}, {
   3.6841300831135187`*^9, 3.684130083432626*^9}, {3.684138321122032*^9, 
   3.684138354809764*^9}, {3.684138494851803*^9, 3.6841385035605307`*^9}, {
   3.684138540043199*^9, 3.6841385752075777`*^9}, {3.685245928608788*^9, 
   3.685245936564748*^9}, {3.685292498644186*^9, 3.685292547209746*^9}, {
   3.685293229629302*^9, 3.685293257980389*^9}, {3.6852936989464273`*^9, 
   3.685293705920918*^9}, {3.685418988387327*^9, 3.6854191059404497`*^9}, 
   3.685765928283773*^9, {3.686654834485551*^9, 3.686654890223186*^9}, {
   3.68707046283397*^9, 3.687070498302699*^9}, {3.6870706403942127`*^9, 
   3.687070645183961*^9}, {3.687074314093583*^9, 3.687074317994583*^9}, {
   3.687074374371909*^9, 3.687074570760933*^9}, {3.687074652127841*^9, 
   3.687074670820685*^9}, {3.687074709674035*^9, 3.687074745552079*^9}, 
   3.6870747762370996`*^9, {3.687075134103478*^9, 3.687075190017233*^9}, {
   3.687075227136788*^9, 3.6870752283386497`*^9}, {3.687084433842494*^9, 
   3.687084434540505*^9}, {3.687252674715548*^9, 3.6872527537030087`*^9}, {
   3.6872530883472633`*^9, 3.687253099104884*^9}, {3.6872531543581467`*^9, 
   3.687253322775559*^9}, {3.7142771196500397`*^9, 3.714277178441402*^9}, {
   3.7142792444078503`*^9, 3.7142792456383257`*^9}, {3.7142796797387342`*^9, 
   3.714279682473756*^9}, 3.7142797831707277`*^9, {3.714279814324584*^9, 
   3.714279838321075*^9}, {3.717740904453494*^9, 3.717740920456429*^9}, {
   3.718696577274802*^9, 3.718696627861423*^9}, {3.7186967142424183`*^9, 
   3.7186967147340813`*^9}, {3.718696792968584*^9, 3.71869679321145*^9}, {
   3.718696906307351*^9, 3.7186969091161127`*^9}, {3.718696991305678*^9, 
   3.718697052988871*^9}, {3.7187172800606413`*^9, 3.7187173470382023`*^9}, {
   3.718717379383102*^9, 3.7187174148204517`*^9}, {3.718717488228198*^9, 
   3.718717491026578*^9}, {3.718720070887845*^9, 3.718720085142127*^9}, {
   3.7187201586451893`*^9, 3.718720352039188*^9}, {3.718720394463822*^9, 
   3.718720396278257*^9}, {3.718720543700461*^9, 3.7187206606961927`*^9}, {
   3.7187206908647337`*^9, 3.718720767621423*^9}, {3.718720836716254*^9, 
   3.7187208891380653`*^9}, {3.7187209291227837`*^9, 3.718720948201191*^9}, {
   3.718729205281302*^9, 3.718729248975091*^9}, {3.718814337621928*^9, 
   3.71881435191628*^9}, {3.718814945192078*^9, 3.718815025636673*^9}, {
   3.718815447675469*^9, 3.7188154905358686`*^9}, {3.718815868726829*^9, 
   3.7188159045504293`*^9}, {3.718816345921665*^9, 3.718816383590927*^9}, {
   3.7188164578149977`*^9, 3.718816470836544*^9}, {3.719060981858221*^9, 
   3.7190609882613688`*^9}, {3.719061020869276*^9, 3.719061069506462*^9}, {
   3.7252697943207827`*^9, 3.7252699678916187`*^9}, {3.725270603409759*^9, 
   3.7252706042367573`*^9}, {3.725270841256734*^9, 3.725270867576191*^9}, {
   3.725271247568046*^9, 3.725271324259781*^9}, {3.725271452850932*^9, 
   3.725271454009354*^9}, {3.725271492634151*^9, 3.72527151962381*^9}, {
   3.725271638847114*^9, 3.72527164350896*^9}, {3.7252719083608723`*^9, 
   3.725271923558984*^9}, {3.725272298431737*^9, 3.725272350421612*^9}, {
   3.725272402205048*^9, 3.72527244417188*^9}, {3.725272631784109*^9, 
   3.725272641227659*^9}, {3.72527267485524*^9, 3.725272691237422*^9}, {
   3.72527311647713*^9, 3.725273165306882*^9}, {3.725273206193162*^9, 
   3.7252732719148207`*^9}, {3.725273308513805*^9, 3.725273320479816*^9}, {
   3.725273448694283*^9, 3.725273484590317*^9}, {3.7252739664192963`*^9, 
   3.725273981306225*^9}, {3.7253735568340893`*^9, 3.7253735688323936`*^9}, {
   3.725373908459175*^9, 3.7253739128492823`*^9}, {3.725374117071377*^9, 
   3.725374122918681*^9}, 3.725374225021799*^9, {3.725374283442111*^9, 
   3.725374307704977*^9}, {3.725374666409811*^9, 3.72537471971462*^9}, {
   3.725374832313146*^9, 3.725374868301381*^9}, {3.7253749321418447`*^9, 
   3.725374952949141*^9}, {3.7253762167569838`*^9, 3.725376375167273*^9}, {
   3.725376414760065*^9, 3.725376424262648*^9}, {3.72537713590405*^9, 
   3.7253771382141247`*^9}, {3.72537720593338*^9, 3.725377241394939*^9}, 
   3.725431095469984*^9, {3.725431152356546*^9, 3.72543125425383*^9}, 
   3.725431405022188*^9, {3.72543144959653*^9, 3.725431458188115*^9}, {
   3.725431519565583*^9, 3.725431546084051*^9}, {3.725433607711245*^9, 
   3.725433607875033*^9}, {3.7254389561187887`*^9, 3.725439004963586*^9}, {
   3.725439035746935*^9, 3.725439142872712*^9}, {3.725440248570176*^9, 
   3.725440261217514*^9}, {3.72544031558554*^9, 3.725440322201033*^9}, {
   3.7254403689262133`*^9, 3.725440379566348*^9}, {3.725440948075251*^9, 
   3.725440951724298*^9}, {3.725441021544433*^9, 3.725441075693317*^9}, {
   3.725441121132326*^9, 3.725441256056897*^9}, {3.725441576763502*^9, 
   3.725441598666348*^9}, {3.725441629370322*^9, 3.725441648856089*^9}, {
   3.725441741502282*^9, 3.7254417720922337`*^9}, {3.725441859557227*^9, 
   3.725441915273739*^9}, {3.7254419624824533`*^9, 3.725442055527149*^9}, {
   3.725442090121353*^9, 3.725442108603052*^9}, {3.725442242651855*^9, 
   3.725442288329866*^9}, {3.725442363906097*^9, 3.7254423660232687`*^9}, {
   3.725442396985964*^9, 3.725442537300845*^9}, {3.725442783290227*^9, 
   3.725442789423853*^9}, {3.725443105257683*^9, 3.72544314562961*^9}, {
   3.725443620133412*^9, 3.7254436220111933`*^9}, {3.72544484502874*^9, 
   3.725444846177541*^9}, {3.725445506324738*^9, 3.725445603873625*^9}, {
   3.725445652876431*^9, 3.725445687655731*^9}, {3.7254457322718782`*^9, 
   3.725445739556692*^9}, {3.7254458126392517`*^9, 3.7254459732397957`*^9}, {
   3.72544600673927*^9, 3.7254460409294643`*^9}, {3.725446082440621*^9, 
   3.7254461459020844`*^9}, {3.725446176623804*^9, 3.725446194796921*^9}, {
   3.72544672485463*^9, 3.725446835458315*^9}, 3.7254468786986027`*^9, {
   3.725448207127932*^9, 3.7254482213255663`*^9}, {3.725448268045261*^9, 
   3.725448275798976*^9}, {3.725609594471175*^9, 3.725609595133806*^9}, {
   3.725609758182316*^9, 3.725609761577835*^9}, {3.72560987803113*^9, 
   3.725609878269611*^9}, {3.725609957261696*^9, 3.7256099612974873`*^9}, {
   3.725609993915262*^9, 3.725610016290868*^9}, {3.72561013470751*^9, 
   3.725610148319676*^9}, {3.7256101845660963`*^9, 3.725610184693945*^9}, {
   3.725610370045615*^9, 3.725610371249484*^9}, {3.725617536512475*^9, 
   3.725617639843293*^9}, {3.7256177173098183`*^9, 3.725617773224988*^9}, {
   3.726223688910334*^9, 3.726223779764642*^9}, {3.726223815839501*^9, 
   3.726223866310741*^9}, {3.7262241728333263`*^9, 3.726224173048872*^9}, {
   3.7263905219435463`*^9, 3.7263906120946083`*^9}, {3.726561290259503*^9, 
   3.726561293777958*^9}, {3.726857773261689*^9, 3.7268577967058907`*^9}, {
   3.726857833969409*^9, 3.7268578477674437`*^9}, {3.726857892679901*^9, 
   3.726857896783546*^9}, {3.726857955565792*^9, 3.726858019275367*^9}, {
   3.7268581230812817`*^9, 3.726858126855783*^9}, 3.726858172112897*^9, 
   3.726858344500679*^9, {3.7268585027128572`*^9, 3.726858514030747*^9}, {
   3.7268585488475924`*^9, 3.7268585522808332`*^9}, {3.726858598110031*^9, 
   3.726858617990168*^9}, {3.726858768474002*^9, 3.7268587977914457`*^9}, {
   3.7268588328870707`*^9, 3.726858856302162*^9}, {3.726858887679934*^9, 
   3.726858893773878*^9}, {3.726858966886116*^9, 3.7268589888202543`*^9}, 
   3.726859141635659*^9, {3.726859174188146*^9, 3.726859184593952*^9}, {
   3.726859228843294*^9, 3.726859278769764*^9}, {3.727596670713231*^9, 
   3.7275967212226667`*^9}, {3.727596790831655*^9, 3.7275967926392813`*^9}, 
   3.7275968328738327`*^9, {3.727596958300494*^9, 3.727596958786277*^9}, {
   3.727596992251334*^9, 3.72759700324319*^9}, {3.7275970345633163`*^9, 
   3.7275970574623632`*^9}, {3.7275985206670017`*^9, 3.7275986102626*^9}, {
   3.72759867778411*^9, 3.7275988954864492`*^9}, 3.727598942256852*^9, {
   3.72759897750863*^9, 3.727599013855448*^9}, {3.727599088736693*^9, 
   3.727599104855103*^9}, {3.7275992674093943`*^9, 3.727599269636272*^9}, {
   3.727599364485498*^9, 3.7275993811005487`*^9}, {3.727599481226458*^9, 
   3.727599654265373*^9}, {3.727599779038115*^9, 3.727599841389889*^9}, {
   3.727599892695681*^9, 3.727599892973947*^9}, {3.727600638814896*^9, 
   3.7276006514193687`*^9}, {3.727600731345932*^9, 3.72760074339881*^9}, {
   3.7276009822570972`*^9, 3.7276010181153183`*^9}, 3.727601077966126*^9, {
   3.727603141129677*^9, 3.7276032589689503`*^9}, {3.727603433788258*^9, 
   3.7276034759418287`*^9}, {3.7276045771758823`*^9, 3.727604794750452*^9}, {
   3.727604829108159*^9, 3.72760485079314*^9}, {3.727604918516605*^9, 
   3.727604969390821*^9}, {3.727605026307961*^9, 3.7276050292851267`*^9}, {
   3.727605065999736*^9, 3.727605180288286*^9}, {3.727605427264027*^9, 
   3.7276054278434753`*^9}, {3.727605927425639*^9, 3.727606184324828*^9}, {
   3.727606663389245*^9, 3.727606702607633*^9}, {3.727606753027483*^9, 
   3.7276067964221487`*^9}, {3.727607248788731*^9, 3.727607566831222*^9}, 
   3.727607635936228*^9, 3.727675292623402*^9, 3.7276766297925587`*^9, 
   3.7276767844661827`*^9, {3.72767684001958*^9, 3.727676885072239*^9}, {
   3.7277093097659683`*^9, 3.7277093347667027`*^9}, {3.727709430606303*^9, 
   3.727709469547093*^9}, {3.72780913314751*^9, 3.7278091900229177`*^9}, {
   3.727850767511487*^9, 3.7278507686851273`*^9}, {3.7303979306301003`*^9, 
   3.730397942962326*^9}, {3.730543777621201*^9, 3.7305437777754107`*^9}, {
   3.730544115579426*^9, 3.730544115737665*^9}, {3.7305441832318296`*^9, 
   3.730544209081943*^9}, {3.730622837829286*^9, 3.730622853681568*^9}, {
   3.730623110374165*^9, 3.730623130027525*^9}, {3.733170306280711*^9, 
   3.73317033309278*^9}, {3.7331710008147717`*^9, 3.7331710251738367`*^9}, {
   3.7331711000446978`*^9, 3.7331711361705*^9}, {3.733171473981695*^9, 
   3.733171578192926*^9}, {3.73317163623409*^9, 3.733171651943324*^9}, 
   3.733202970819314*^9, 3.733804172513041*^9, {3.733805704590872*^9, 
   3.733805760174259*^9}, {3.73380587632876*^9, 3.7338058814714823`*^9}, {
   3.733805933078506*^9, 3.733805933504356*^9}, {3.733805977388275*^9, 
   3.733806007688088*^9}, 3.7338072718163424`*^9, {3.73380732023398*^9, 
   3.7338074010980377`*^9}, {3.7350320858541594`*^9, 3.735032132405632*^9}, {
   3.7353065300461683`*^9, 3.735306694608877*^9}, {3.7353067342337008`*^9, 
   3.7353067586461554`*^9}, {3.735306793406844*^9, 3.735306880284782*^9}, {
   3.735307344890975*^9, 3.735307345154111*^9}, {3.735307447075685*^9, 
   3.735307455994753*^9}, {3.7373670527127934`*^9, 3.737367053341886*^9}, {
   3.737396039501148*^9, 3.737396089467263*^9}, {3.7373962440651417`*^9, 
   3.737396255360158*^9}, {3.7373962939034023`*^9, 3.737396313525474*^9}, {
   3.737396980671*^9, 3.737397015363579*^9}, {3.737397170086678*^9, 
   3.737397278098724*^9}, {3.737397338659171*^9, 3.737397347537478*^9}, {
   3.737397598268832*^9, 3.737397645663148*^9}, 3.737397735046486*^9, 
   3.737397767184107*^9, 3.737968466882496*^9, {3.738303813108982*^9, 
   3.7383038170508738`*^9}, {3.738304066063772*^9, 3.738304071176364*^9}, {
   3.739170316786953*^9, 3.7391703198315573`*^9}, {3.743865411764411*^9, 
   3.743865411809656*^9}, 3.7438658804015923`*^9, {3.744034697052298*^9, 
   3.744034710978043*^9}, {3.7440349179223413`*^9, 3.744034918150834*^9}, {
   3.7441701135312233`*^9, 3.744170114030244*^9}, {3.758528988970167*^9, 
   3.758528992606166*^9}, {3.758529030218317*^9, 3.758529091683517*^9}, {
   3.7595192248069153`*^9, 3.75951922489293*^9}, 3.762793093025393*^9, {
   3.786967961472329*^9, 3.786967962893998*^9}, {3.7869681859392014`*^9, 
   3.786968188073204*^9}},
 Background->RGBColor[0.94, 0.91, 0.88],
 CellLabel->"In[538]:=",
 CellID->2060132218,ExpressionUUID->"2a248686-de80-4fa6-ba68-45e9e6cbc35c"]
}, Closed]]
}, Open  ]]
},
WindowSize->Medium,
WindowMargins->Automatic,
Visible->True,
CellContext->"Global`",
FrontEndVersion->"11.3 for Mac OS X x86 (32-bit, 64-bit Kernel) (March 5, \
2018)",
StyleDefinitions->FrontEnd`FileName[{"Wolfram"}, "FunctionPageStyles.nb", 
  CharacterEncoding -> "UTF-8"]
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{
 "ExtendedExamples"->{
  Cell[33063, 828, 155, 2, 56, "ExtendedExamplesSection",ExpressionUUID->"bf390231-691f-46bc-bb79-8e0c35a93bbc",
   CellTags->"ExtendedExamples",
   CellID->1854448968]}
 }
*)
(*CellTagsIndex
CellTagsIndex->{
 {"ExtendedExamples", 85754, 1938}
 }
*)
(*NotebookFileOutline
Notebook[{
Cell[558, 20, 600, 14, 24, "History",ExpressionUUID->"3f09ee5d-cf06-4813-95e9-a98f1d12c6e7",
 CellID->1247902091],
Cell[CellGroupData[{
Cell[1183, 38, 123, 1, 29, "CategorizationSection",ExpressionUUID->"40131237-4019-41ff-8a7d-6d27a93665ef",
 CellID->1122911449],
Cell[1309, 41, 134, 2, 30, "Categorization",ExpressionUUID->"7e92b0f0-9fea-479d-8411-fad746e570fc",
 CellID->686433507],
Cell[1446, 45, 177, 3, 30, "Categorization",ExpressionUUID->"d8b4c243-ac46-4994-b58d-f9cf8e067a88",
 CellID->605800465],
Cell[1626, 50, 174, 3, 30, "Categorization",ExpressionUUID->"16aa8a26-4c24-4ea7-8d24-e8eccdb843da",
 CellID->468444828],
Cell[1803, 55, 174, 2, 30, "Categorization",ExpressionUUID->"2aa62a00-49e5-4d0d-8eb3-1209e67d04d8"]
}, Open  ]],
Cell[CellGroupData[{
Cell[2014, 62, 110, 1, 29, "KeywordsSection",ExpressionUUID->"1245ad46-d04a-4af3-ab61-90222a2a4027",
 CellID->477174294],
Cell[2127, 65, 100, 1, 70, "Keywords",ExpressionUUID->"e0acb017-4d30-4b4f-90ed-2c06a2bb7bf6",
 CellID->1164421360]
}, Closed]],
Cell[CellGroupData[{
Cell[2264, 71, 120, 1, 19, "TemplatesSection",ExpressionUUID->"9d28174d-46a7-4941-a828-2bb75e89b8da",
 CellID->1872225408],
Cell[2387, 74, 149, 2, 70, "Template",ExpressionUUID->"95458585-9147-4cdb-a975-65ce471975dd",
 CellID->1562036412],
Cell[2539, 78, 137, 2, 70, "Template",ExpressionUUID->"e76e055d-2720-4703-8798-4ed613b1c492",
 CellID->158391909],
Cell[2679, 82, 136, 2, 70, "Template",ExpressionUUID->"d4725ef4-7ceb-4689-a8c8-393ce6522b83",
 CellID->1360575930],
Cell[2818, 86, 137, 2, 70, "Template",ExpressionUUID->"0dac2c06-b92a-424b-978e-475c656b0863",
 CellID->793782254]
}, Closed]],
Cell[CellGroupData[{
Cell[2992, 93, 108, 1, 19, "DetailsSection",ExpressionUUID->"698ddb88-7a87-4266-aedb-da13879dc3ef",
 CellID->307771771],
Cell[3103, 96, 118, 2, 70, "Details",ExpressionUUID->"028bdf1e-0806-4183-bbd1-d001e24818ec",
 CellID->670882175],
Cell[3224, 100, 124, 2, 70, "Details",ExpressionUUID->"1f736e9c-044f-400c-8fe9-1e58e489742f",
 CellID->350963985],
Cell[3351, 104, 119, 2, 70, "Details",ExpressionUUID->"a9fbdf6a-5069-49e5-a9bd-3940fbe5063e",
 CellID->8391405],
Cell[3473, 108, 124, 2, 70, "Details",ExpressionUUID->"bc4fabdb-d6f9-4381-9011-866ca685e650",
 CellID->3610269],
Cell[3600, 112, 116, 2, 70, "Details",ExpressionUUID->"0fe86c02-25f1-434f-8b8d-b6c24f6968ff",
 CellID->401364205],
Cell[3719, 116, 116, 2, 70, "Details",ExpressionUUID->"c5d148f6-73a4-4441-bc29-1219642a691b",
 CellID->350204745],
Cell[3838, 120, 118, 2, 70, "Details",ExpressionUUID->"a3995d0e-df78-437d-81a3-7583d6c1e1a8",
 CellID->732958810],
Cell[3959, 124, 133, 2, 70, "Details",ExpressionUUID->"8f4d0c0b-b02f-487b-8ae3-4b55999ff8c8",
 CellID->222905350],
Cell[4095, 128, 122, 2, 70, "Details",ExpressionUUID->"c03bae01-862c-4662-9dda-ae246a739d83",
 CellID->240026365]
}, Closed]],
Cell[CellGroupData[{
Cell[4254, 135, 120, 1, 63, "ObjectName",ExpressionUUID->"c6dc2058-035d-4b6a-8f92-673bb6f751f7",
 CellID->1224892054],
Cell[4377, 138, 1459, 36, 114, "Usage",ExpressionUUID->"74a23311-90c6-4bc1-bd3b-b6a426329f95",
 CellID->982511436],
Cell[5839, 176, 1350, 35, 63, "Notes",ExpressionUUID->"032b0624-2c02-4585-8db9-923876be41d4",
 CellID->1174253239],
Cell[7192, 213, 511, 8, 57, "Notes",ExpressionUUID->"b8cb1ce2-9934-4e64-ac54-7d96f2832db2",
 CellID->1710490272],
Cell[7706, 223, 2466, 46, 117, "3ColumnTableMod",ExpressionUUID->"b7a08e6f-cf02-4822-af5a-7cdc57fa7dc1",
 CellID->49233058],
Cell[10175, 271, 335, 6, 25, "Notes",ExpressionUUID->"1632e0d4-432e-4ca2-a229-d9cb4c9eb13d",
 CellID->1822626567],
Cell[10513, 279, 459, 11, 27, "Notes",ExpressionUUID->"8c1aa00d-6ac9-4353-a8e8-390f07a2e4ae",
 CellID->629474015],
Cell[10975, 292, 1771, 36, 79, "3ColumnTableMod",ExpressionUUID->"58933d61-6f8f-4934-9953-6942d417bfc8",
 CellID->1523785371],
Cell[12749, 330, 244, 3, 25, "Notes",ExpressionUUID->"c54f85cf-3d96-458e-8359-f7506d7e7e03",
 CellID->1548663136],
Cell[12996, 335, 1519, 27, 63, "3ColumnTableMod",ExpressionUUID->"1976f4c2-a5ec-4a92-b343-efd7cf1e1bc3",
 CellID->618233807],
Cell[14518, 364, 1239, 27, 42, "Notes",ExpressionUUID->"e86340b9-88b6-4e4c-be42-64ce623feafa",
 CellID->1547272125],
Cell[15760, 393, 1637, 31, 45, "3ColumnTableMod",ExpressionUUID->"5baa2360-1dea-4f44-a531-7b0b0cef64e6",
 CellID->1446604628],
Cell[17400, 426, 351, 7, 26, "Notes",ExpressionUUID->"848b95ed-cf4c-41d2-a4e3-91811e4adf6b",
 CellID->1084821645],
Cell[17754, 435, 852, 17, 24, "2ColumnTableMod",ExpressionUUID->"ffa855b8-511c-491c-a718-ce8855111ced",
 CellID->1700788839],
Cell[18609, 454, 1023, 20, 77, "Notes",ExpressionUUID->"1851560b-6f95-4b2c-b9b3-17ca8cd6e91d",
 CellID->1616764625],
Cell[19635, 476, 526, 14, 46, "Input",ExpressionUUID->"e00e5fcf-de6b-4a69-8542-ccb04441be62",
 CellID->1969985330]
}, Open  ]],
Cell[CellGroupData[{
Cell[20198, 495, 112, 1, 44, "TutorialsSection",ExpressionUUID->"263e7067-f6c3-4eb7-9b1f-f001c4232222",
 CellID->250839057],
Cell[20313, 498, 100, 1, 16, "Tutorials",ExpressionUUID->"92784303-602f-45bc-a095-fb58c15c8b38",
 CellID->341631938]
}, Open  ]],
Cell[CellGroupData[{
Cell[20450, 504, 138, 1, 31, "RelatedDemonstrationsSection",ExpressionUUID->"4ed9140a-474c-45b1-8724-124fbc2a206b",
 CellID->1268215905],
Cell[20591, 507, 113, 1, 16, "RelatedDemonstrations",ExpressionUUID->"350ccb48-ad2f-4b2b-bcd3-c09083701092",
 CellID->1129518860]
}, Open  ]],
Cell[CellGroupData[{
Cell[20741, 513, 120, 1, 31, "RelatedLinksSection",ExpressionUUID->"52d39739-557f-4ee6-8c1d-6a74754a979c",
 CellID->1584193535],
Cell[20864, 516, 617, 15, 29, "RelatedLinks",ExpressionUUID->"b9a8b31a-c492-492e-9aec-12e8a3459163",
 CellID->1998586493],
Cell[21484, 533, 434, 11, 16, "RelatedLinks",ExpressionUUID->"1bc11870-f42f-4c53-9230-24bdaf1d1162",
 CellID->1038487239]
}, Open  ]],
Cell[CellGroupData[{
Cell[21955, 549, 110, 1, 31, "SeeAlsoSection",ExpressionUUID->"929493fe-6ee2-4aeb-89d8-44b46dd03c22",
 CellID->1255426704],
Cell[22068, 552, 2476, 60, 57, "SeeAlso",ExpressionUUID->"12cf0282-2e9b-441a-8a37-fabb63fd7fc1",
 CellID->929782353]
}, Open  ]],
Cell[CellGroupData[{
Cell[24581, 617, 112, 1, 31, "MoreAboutSection",ExpressionUUID->"4e9d142d-5420-4c0c-994a-70897c806f1b",
 CellID->38303248],
Cell[24696, 620, 101, 1, 16, "MoreAbout",ExpressionUUID->"db8f2cc2-62e7-48ae-833d-6a6f5af0be07",
 CellID->1665078683]
}, Open  ]],
Cell[CellGroupData[{
Cell[24834, 626, 411, 11, 70, "PrimaryExamplesSection",ExpressionUUID->"606c4353-be52-4b32-80e6-acaca0c425ae",
 CellID->880084151],
Cell[CellGroupData[{
Cell[25270, 641, 457, 8, 29, "Input",ExpressionUUID->"6a2ccd83-1438-471a-ad4a-4956296f70f3",
 CellID->694277380],
Cell[25730, 651, 1185, 19, 28, "Output",ExpressionUUID->"f07ca322-57e6-4d0d-8860-0a07220f6137",
 CellID->1148816148]
}, Open  ]],
Cell[CellGroupData[{
Cell[26952, 675, 243, 5, 17, "ExampleDelimiter",ExpressionUUID->"49ba27b0-0b18-4bb5-9a1a-a16322199ff4",
 CellID->1993867123],
Cell[CellGroupData[{
Cell[27220, 684, 560, 12, 48, "Input",ExpressionUUID->"a4046933-aa37-4f8d-9e6c-78e25560e909",
 CellID->1777196472],
Cell[27783, 698, 2425, 57, 110, "Output",ExpressionUUID->"c4131773-a387-4b60-bd3e-672e1f79c724",
 CellID->14282953]
}, Open  ]],
Cell[CellGroupData[{
Cell[30245, 760, 506, 8, 26, "Input",ExpressionUUID->"3d7f787f-b762-4a12-b7ac-4f070c64a670",
 CellID->1982197250],
Cell[30754, 770, 754, 13, 28, "Output",ExpressionUUID->"a2855aac-7712-4efb-ae58-0e0fd3888853",
 CellID->651678644]
}, Open  ]],
Cell[31523, 786, 643, 15, 25, "ExampleText",ExpressionUUID->"f85eec64-6790-4602-836b-e41d01f00d1d",
 CellID->1838912588],
Cell[CellGroupData[{
Cell[32191, 805, 353, 7, 29, "Input",ExpressionUUID->"509ec2b8-5f11-4a9b-8df0-bf9acb838f5d",
 CellID->1413782592],
Cell[32547, 814, 455, 7, 25, "Output",ExpressionUUID->"196f801a-1837-49e0-8d89-44d21d6f631a",
 CellID->1647640415]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[33063, 828, 155, 2, 56, "ExtendedExamplesSection",ExpressionUUID->"bf390231-691f-46bc-bb79-8e0c35a93bbc",
 CellTags->"ExtendedExamples",
 CellID->1854448968],
Cell[33221, 832, 242, 5, 33, "ExampleSection",ExpressionUUID->"9a41099e-fd62-4d27-a616-0e5469d2fa60",
 CellID->1293636265],
Cell[33466, 839, 265, 5, 21, "ExampleSection",ExpressionUUID->"edfb213d-eb29-41fd-9f7a-29ccfb996402",
 CellID->1020263627],
Cell[CellGroupData[{
Cell[33756, 848, 244, 5, 21, "ExampleSection",ExpressionUUID->"da7e1875-5c35-4028-9304-a17f611f755e",
 CellID->2061341341],
Cell[CellGroupData[{
Cell[34025, 857, 324, 6, 24, "ExampleSubsection",ExpressionUUID->"9a213e9d-4705-4a76-9a22-d6542fbeab90",
 CellID->1757724783],
Cell[34352, 865, 610, 13, 37, "ExampleText",ExpressionUUID->"eeca6a5d-472d-4263-86df-2c3d27bebb33",
 CellID->815635903],
Cell[CellGroupData[{
Cell[34987, 882, 513, 10, 69, "Input",ExpressionUUID->"01b81b9c-4034-4aa6-98b4-d723b2a32f47",
 CellID->355650698],
Cell[35503, 894, 456, 8, 34, "Output",ExpressionUUID->"6b329251-a1bd-4589-a0d6-00a5c04e46c1",
 CellID->1948247547]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[36008, 908, 328, 6, 24, "ExampleSubsection",ExpressionUUID->"708bdbfa-7ce3-4a19-8258-d670f0c86789",
 CellID->1295379749],
Cell[36339, 916, 273, 5, 22, "ExampleText",ExpressionUUID->"da243fb8-c8b4-4dd6-a232-942bff2d698a",
 CellID->1624495902],
Cell[CellGroupData[{
Cell[36637, 925, 862, 19, 92, "Input",ExpressionUUID->"8fdb3348-573c-4784-a27c-3afb4f2f54c7",
 CellID->759871737],
Cell[37502, 946, 1320, 26, 29, "Output",ExpressionUUID->"b5c2b778-da14-4aeb-b7c7-2e3c4b33a44b",
 CellID->1198581223]
}, Open  ]],
Cell[38837, 975, 243, 4, 22, "ExampleText",ExpressionUUID->"b0614eed-af95-4f3a-891d-22cf3f9a3b8a",
 CellID->1676165524],
Cell[CellGroupData[{
Cell[39105, 983, 765, 18, 71, "Input",ExpressionUUID->"463ebad2-c98f-400d-a692-e3f81feeb449",
 CellID->1263984472],
Cell[39873, 1003, 295, 5, 25, "Output",ExpressionUUID->"04077b83-5da2-4d76-a54f-879359449590",
 CellID->390481182]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[40217, 1014, 320, 6, 24, "ExampleSubsection",ExpressionUUID->"39e0fd91-4597-4430-ac40-a7b143fcec99",
 CellID->647929167],
Cell[40540, 1022, 949, 19, 56, "ExampleText",ExpressionUUID->"a8cae40b-8306-404d-b773-0cf92a7bb646",
 CellID->677651810],
Cell[CellGroupData[{
Cell[41514, 1045, 414, 8, 50, "Input",ExpressionUUID->"c23e1c59-3a99-4298-a8dc-5f7411020108",
 CellID->1599760575],
Cell[41931, 1055, 461, 9, 28, "Output",ExpressionUUID->"f3b23021-7f23-482e-b445-f3dbe392386f",
 CellID->1827476266]
}, Open  ]],
Cell[42407, 1067, 397, 9, 41, "ExampleText",ExpressionUUID->"8c5a2574-61a8-49ec-beb9-e70cdafe2d48",
 CellID->7171638]
}, Open  ]],
Cell[CellGroupData[{
Cell[42841, 1081, 318, 6, 24, "ExampleSubsection",ExpressionUUID->"042ce602-274c-4b54-82f9-9b1c151c7349",
 CellID->1653196224],
Cell[43162, 1089, 434, 12, 23, "ExampleText",ExpressionUUID->"52da92b2-3051-4961-a638-f91e2a59b3c7",
 CellID->817307380],
Cell[CellGroupData[{
Cell[43621, 1105, 436, 8, 29, "Input",ExpressionUUID->"2acb4f57-423a-440f-b4b7-c3db19239ec5",
 CellID->616414863],
Cell[44060, 1115, 263, 4, 25, "Output",ExpressionUUID->"4f69f4b0-695c-4bfd-b80e-bb450a5b58d1",
 CellID->1866025604]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[44362, 1124, 248, 5, 33, "ExampleSection",ExpressionUUID->"441d0f9a-6b4b-4a0a-a75b-29687f4b8f74",
 CellID->258228157],
Cell[44613, 1131, 259, 5, 21, "ExampleSection",ExpressionUUID->"ec76dc3c-ffbb-4b01-bc40-dbb65812a3ac",
 CellID->2123667759],
Cell[CellGroupData[{
Cell[44897, 1140, 252, 5, 21, "ExampleSection",ExpressionUUID->"9a311590-a07f-48bd-9620-1d93dbaabc45",
 CellID->1305812373],
Cell[45152, 1147, 1130, 27, 53, "ExampleText",ExpressionUUID->"3228a613-bd2c-432c-bc56-904de5025958",
 CellID->757412278],
Cell[CellGroupData[{
Cell[46307, 1178, 358, 7, 29, "Input",ExpressionUUID->"20df1c78-049d-4d4e-92cd-44668b6ced16",
 CellID->326381480],
Cell[46668, 1187, 524, 10, 40, "Message",ExpressionUUID->"6a0ca730-1638-46ca-bbbd-ef3720b46f66",
 CellID->67122436],
Cell[47195, 1199, 525, 10, 40, "Message",ExpressionUUID->"c0b5698d-e06f-474e-b06e-3011de4e1bf2",
 CellID->697867177],
Cell[47723, 1211, 393, 8, 28, "Output",ExpressionUUID->"6ac39c5d-688f-4cc8-bb7e-4036c1aa66cb",
 CellID->1645447572]
}, Open  ]],
Cell[48131, 1222, 337, 8, 23, "ExampleText",ExpressionUUID->"13665588-f805-424f-9339-5958f51d38e9",
 CellID->1311844891],
Cell[CellGroupData[{
Cell[48493, 1234, 348, 7, 29, "Input",ExpressionUUID->"6b1ae5e1-2775-4e98-a781-2a7ab43c831c",
 CellID->1097327756],
Cell[48844, 1243, 415, 8, 28, "Output",ExpressionUUID->"66282b9f-e88b-4bf2-a6f8-c5dbf0dba135",
 CellID->1890420185]
}, Open  ]]
}, Open  ]],
Cell[49286, 1255, 257, 5, 33, "ExampleSection",ExpressionUUID->"f400096b-c137-48f8-b964-6cb752cf6a36",
 CellID->1653164318],
Cell[49546, 1262, 249, 5, 21, "ExampleSection",ExpressionUUID->"f62108dd-1d93-4d5d-acd4-20a2d4d2eb5a",
 CellID->589267740],
Cell[CellGroupData[{
Cell[49820, 1271, 373, 8, 21, "ExampleSection",ExpressionUUID->"c4694888-e711-4d72-96f3-0f7a7b57d43e",
 CellID->1993819761],
Cell[50196, 1281, 4446, 84, 395, "Input",ExpressionUUID->"13693d99-ebe2-4a9b-86e3-1f27a7f4ee3d",
 InitializationCell->False,
 CellID->1119415534],
Cell[54645, 1367, 30683, 553, 2137, "Input",ExpressionUUID->"2a248686-de80-4fa6-ba68-45e9e6cbc35c",
 InitializationCell->False,
 CellID->2060132218]
}, Closed]]
}, Open  ]]
}
]
*)

